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AKTUELE BIJLAGE BĲ COMMODORE DOSSIER 


| ONVERWACHT EEN NIEUWE’ COMMODORE: 128D _ 


Het is niet de eerste keer dat 
een nieuwe machine van Com- 
modore door iemand anders 


wordt geïntroduceerd dan de of- 


ficiële importeur. De Rotter- 
damse firma Game World heeft 
dit keer het primeurtje van de 


128D, een 128 met in- of aange- 
bouwde 1571 diskdrive. Een op- 


merkelijke machine vooral om- 
dat hij voor de lancering door 
Game World zelfs nog niet ge- 
noemd werd in het doorgaans 
welingelichte roddelcircuit. 

Het Rotterdamse bedrijf impor- 
teert de nieuwe computer uit 
Duitsland, zoals blijkt uit de 
bijgeleverde Duitse instructie- 
boeken. 

De 128D kan worden gerekend 
tot de zogenaamd verplaatsbare 
computers, dat wil zeggen dat 
hij eigenlijk te zwaar is om hem 
echt een middagje mee uit wan- 


COMMODORE DOSSIER AKTIEF verschijnt — 
12 keer per jaar. In februari, mei, au- 
gustus en november als bijlage in het 

hart van Commodore Dossier, in de overi- 
ge maanden als losse uitgave uitsluitend 
voor abonnees van Commodore Dossier. … 
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delen te nemen, maar dat hij 
wel makkelijk mee kan op de 
achterbank van de auto. Het — 
grote verschil met de standaard 
128 is dat alles behalve het toet- 
senbord is ingebouwd in een 
systeemkast zoals we die kennen 
van de PC's. In de systeemkast 
van de 128D bevinden zich niet 
alleen de nieuwe 1571 diskdrive, 
maar ook de verschillende pro- 
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cessoren en transformatoren. 
Dat betekent in de eerste plaats 
dat het toetsenbord weliswaar 
dezelfde layout heeft als die van 


de normale 128, maar een stuk 
korter is. Het kan voor vervoer 
in de systeemkast worden aan- 


gebracht, Uit de systeemkast 
komt nog maar één snoertje, al- 
le netvoedingen zijn dit keer 
weggewerkt. Om hitteproblemen 
te voorkomen heeft men meteen 


maar een ventilatortje inge- 


bouwd. Die zoemt hoorbaar, 
maar waarschijnlijk niet hin- 


… derlijk 


De prijs van het nieuwe appa- 


raat is niet kinderachtig: f2495 
Dat is nog 100 gulden meer dan 


de prijs van de losse 128 en 
dll 

De prijs van de 128 lijkt toch 
een belemmering te zijn voor de 
vlotte verkoop van de machine. 
Zelfs op de HCC dagen, waar 
toch altijd gestunt wordt, wer- 


den niet echt veel apparaten 
verkocht. De belangstelling is 
groot en de snelle kopers blij- 
ken enthousiast over het appa- 
raat, maar een nog grotere 
groep kijkt blijkbaar liever eerst 


_nog even de kat uit de boom. 


Opmerkelijk is daarentegen dat 
de best verkochte computer van 
dit moment nog steeds de 


_CBM-64 is. Klaarblijkelijk 


wordt de computerhobbyist 


_ zeer succesvol — 
Rabbit Systems BV uit Arnhem (085-435119) biedt de spectaculaire com- 
puter zelfs al te koop aan, voor schrik niet f6250,- exclusief monitor. 


TASWORD NEDERLANDS 


worven voor de Commodore-versie van de bekende tekstverwerker Tas- 


steeds prijsbewuster. 


INTERFACE 
VOOR — 
BROTHER 
AX 10 


AMIGA GESIGNALEERD 


Op de roemruchte HCC-dagen — ook dit jaar weer prijsafbrekend en 


werd voor het eerst in ons land de Amiga gesignaleerd. 


Dat betekent in elk geval dat één van onze medewerkers zich nu eens 


_witgebreid achter het toetsenbord kan nestelen om te zien wat ’het won- Het puur Nederlandse bedrijf 


der van Commodore’ nu echt in petto heeft. Zijn Are: vene leest Specific Product Technology BV 
u in Commodore Dossier nummer 5. uit Wijk bij Duurstede 
(03435-73737) heeft bij de goed- 
kope en dus zeer populaire 
draagbare elektronische schrijf- 
machine AX 10 van Brother 
twee verschillende interfaces 
ontworpen. Een om het appa- 
word. Tasword is een zeer veelzijdige professionele tekstverwerker die raat als printer te laten dienen 
wellicht als belangrijkste kenmerk heeft dat zonder hardware-aanpassing bij een Commodore 64/128 en 
met 80 tekens per regel kan worden gewerkt. In die werksituatie is een een voor computers met een 


Filosoft (050-137. 746) in Groningen heeft de Nederlandse rechten ver- 


…_ goede monitor overigens wel een vereiste, anders kunt u wachten op een standaard. centronics parallel 


stevige hoofdpijn. Filosoft levert een compleet Nederlandse versie van poort, Beide versies — printer 
het programma op schijf en cassette voor f99,-. met ingebouwd interface — 


mm enn Kosten f995,- exclusief BTW. 
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10.000 PLUS _ 
NG a niet graag met 

onze bedrijfsgegevens, maar dit 

keer hebben we een geBronde 


OVER MODULES EN ONTLUIZEN 


In deze extra lange aflevering 
komen we terug op eerder be- 
handelde Basicroutines. Boven- 
dien presenteren we u een wat 
groter programma, dat is opge- 
bouwd volgens het zogenaamde 
’module’-principe en dat mede 
daardoor zeer eenvoudig is uit 
te breiden en/of te 'ontluizen’. 
Eén van de grootste voordelen 
van het gebruik van modules is 
de tijdwinst voor de program- 
meur. De modules kun je name- 
lijk apart van elkaar testen, 
waarna je ze combineert tot één 
programma. Doordat de ver- 
schillende routines al in een 
vroeg stadium zijn uitgepro- 
beerd, wordt het aantal fouten 
tot een minimum gereduceerd, 
zodat er minder tijd verloren 
gaat aan het ’tracen’ enzo- 
voorts. 

Wat is een module’ nu eigen- 
lijk? Met een module’ bedoelen 
we een op zichzelf staand stukje 
programmatuur, dat een aantal 
belangrijke, afgeronde taken 
uitvoert. Dit stukje wordt, na- 
dat het ‘ontluisd’ is, in het 
hoofdprogramma ingepast, 
waarna we aan de volgende mo- 
dule beginnen, totdat het gehele 
programma af is. 

We zullen de modules in de bij- 
gevoegde listing van ’joystick 
assault’ eens bekijken: 

1. regel 2000-2020: sprite data 
inlezen. 

2. regel 3000-3110: alles initiali- 
seren: de variabelen worden in- 
gesteld, de sprites worden aan- 
gezet, enzovoorts. 

3. regel 5000-5040: sprites wor- 
den op de uitgangsposities 
gezet. 

4, regel 6000-6030: een hele leu- 
ke! Deze module roept zelf weer 
drie andere modules aan. Ons 
uiteindelijk doel wordt over het 
scherm bewogen, ons kanon 
(het gaat dus om een schietspel) 


reden om even op te scheppen. 
Meteen na het verschijnen van 
nummer 4 (november) meldde 
de heer F.J.Sens uit Alphen aan 
den Rijn zich aan als abonnee. 


_Hij was de 10.000ste. Omdat 


_ BASIC ONDER DE LO 


wordt, aan de hand van een 
paar toetsindrukken, verplaatst 
en alles wat met de kogel te ma- 
ken heeft, wordt getest. 

5. regel 7000-7120: de complete 
beëindigingsroutines. Als het 
programma hier komt, is er een 
spelletje afgelopen. 

6. regel 8000-8050: het doel 
wordt naar rechts bewogen. 

7. regel 8100-8050: er wordt een 
toets opgehaald, die bepaalt wat 
er moet gebeuren: kogel afvu- 
ren, kanon bewegen of geen van 
beide. 

8. regel 8300-8380: kijken of de 
kogel het doel heeft geraakt. 
Als dat het geval is, wordt de 
’raak’-variabele op | gezet. 


Waarschijnlijk is het u opgeval- 
len: als je zo naar deze losse 
modules kijkt, blijkt het pro- 
gramma helemaal niet ingewik- 
keld te zijn. Het bestaat uit een 
aantal, min of meer logisch in 
elkaar stekende onderdelen. 
Voordat u nu verder leest, ra- 
den wij u aan het programma 
(op de Commodore 64 of op de 
Commodore 128 in ’64-mode’) 
in te toetsen. U kunt de modu- 
les dan zelf testen. 


STOP 

Bij het schrijven van dit pro- 
gramma hebben we zoals altijd 
intensief gebruik gemaakt van 
de 'STOP'-opdracht. Door het 
RETURN-statement door STOP 
te vervangen, verschijnt er na 
het aanroepen van een routine 
de melding ”BREAK IN...” op 
het scherm. U kunt de variabe- 
len dan op de juiste waarden 
testen. Wat echter nog belang- 
rijker is: er iste zien of het 
eind van een routine daadwer- 
kellijk bereikt wordt! U zal na- 
melijk niet de eerste zijn die 
verstrikt raakt in programmalus- 
sen op een onvermoede plaats… 


ook de losse verkoop van ons 
blad gestaag blijft stijgen, heb- 


_ben we onszelf op een overheer- 


lijke taart getrakteerd en de 
heer Sens even in de bloemetjes 
gezet. Ook op andere fronten 


Met behulp van STOP kunnen 
we bijvoorbeeld de sprite-data 
module (regel 2000-2020) eens 
bekijken. We vervangen RE- 
TURN in regel 2000 door een 
STOP, waarna we de RUN- 
opdracht geven. Als alles goed 
is, krijgen er na enige tijd de 
boodschap ”BREAK IN 2000” 
op ons TV- of monitorscherm. 
Nu kunnen we kijken of alle 
data zijn ingelezen. Doordat we 
van de teller ’X’ gebruik hebben 
gemaakt, moet de uiteindelijke 
waarde hiervan gelijk zijn aan 
1024. Test dit met de opdracht 
PRINT X’. Is de waarde van 
’X’ 1024, dan zijn alle data in- 
gelezen. 


FOUTJE 

Dit is slechts één voorbeeld van 
het uitproberen van een module. 
We kunnen deze truc ook ge- 
bruiken als er blijkbaar een fout 
in ons programma zit. 

Gelukkig (Commodore Dossier 
denkt ook overal aan!) zit er 
een kanjer van een fout in ons 
programma. Maar uiteraard be- 
schikken we, dankzij de toege- 
paste module-techniek, over de 
mogelijkheid om deze fout te 
verbeteren. 

Als u het programma RUNt, 
ziet u dat het de bedoeling is 
om met een joystick, die uit een 
televisie wordt afgevuurd (?) op 
een Commodore 64 te schieten. 
Voor dit doel beschikken we 
over een beweegbare televisie 
(de toetsen ’,’ en '.’ dienen hier- 
voor) en een joystick met een 
lage luchtweerstand (druk op 
RETURN). 

We zijn nu meteen bij onze fout 
aangekomen, want de beweging 
van de TV werkt verkeerd! Als 
we op de linker toets drukken, 
gaat de TV naar rechts en vice 
versa. Veranderen, dus. We 
zoek allereerst naar de ’bewe- 
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heeft Commodore Dossier niet 
over. belangstelling te klagen. In 
de eerste twee maanden van Ons 
verblijf in Viditel noteerden de 
tellers van de PTT 35000 raad- 
plegingen van de eerste pagina. 


gingsroutines’. Deze bevinden 
zich op regel 8100-8280. De 
toets die de TV naar rechts be- 
weegt (zie regel 8110), bevindt 
zich op regel 8140. Hieraan 
mankeert echter niets: 
SPRITE +2 (het X-register van 
de TV-sprite) wordt keurig met 
één opgehoogd. Hetzelfde geldt 
voor de beweeg-naar-links- 
routine: deze vermindert de in- 
houd van SPRITE +2 keurig 
met één, zodat hier ook de fout 
niet in kan zitten. 

Omdat alle TV-beweegroutines 
in één module zitten, moeten we 
daarin dus toch nog even verder 
zoeken. De beweeg-routines zijn 
goed, zodat de fout dus iets eer- 
der moet zitten! Dit blijkt ook, 
als we naar regel 8110 en 8120 
kijken. We zien dan dat het in- 
drukken van de LINKER-toets 
tot gevolg heeft dat er naar de 
BEWEEG-RECHTS routine 
wordt gesprongen. Omgekeerd 
geeft het indrukken van de 
RECHTERTOETS een 
BEWEEG-LINKS resultaat. De 
fout zit dus niet in de beweeg- 
routines maar in de toets- 
routine! 

Nu we dit weten, is de fout snel 
opgelost. We veranderen de 
twee leestekens in regel 8110 en 
8120, zodat de regels er als 
volgt uitzien: 


8110 IF A$=""’ THEN 8140 
8120 IF A$=""2 THEN 8170 


We testen het programma nu, 
waarna we zien dat de richtin- 
gen nu juist zijn. 

Tot zover ons verhaal over mo- 
dules. Ga nu echter zelf eens 
aan de slag. Maak bijvoorbeeld 
eens een geluidsmodule (regel 
4000-4999 zijn hiervoor vrijge- 
houden), en roep de routines in 
deze module vanuit het hoofd- 
programma aan. De 
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_BASIC ONDE Tad 


LISTING ’JOYSTICK ASSAULT? 


5 sprite=53248:wijzer=2040:Kkleur=53287<shift>/{spatiede7 en 
zishiftd/éspatied3c oa 
s{shift»/éspatie»3d 
poke53280,0:poke53281,0Xshift>/éspatie»3l 
:<shift»/&spatie>2e 
gosub 2000 :rem sprite data lezen{shift>d/4spatie»65 
gosub 3000 :rem initialiseren{shiftd/{spatie»db 
gosub 5000 :rem sprites op het scherm<shift»/<spatie»ll 
rem hier begint de hoofdlus{shift>/<spatie>b7 
gosub GOOOLshiftd/<spatiedcd 
if raak=0 then 70<shiftd/{spatiede0 
gosub 70004shift»/<spatie>dû 

if opnieuw=i then 40Xshift>/Xspatie>90 

110 end{<shift»/&spatiedee 

120 :<shiftd/<spatie)42 

130 :<shift>/éspatiedb8 

140 :{4shift>/éspatie>b6 

for x=832 to x+19lsread y:poke x‚y:next xireturnéshift»/{spatie»da 
:Xshift»/{spatiede7 

i<shiftd»/<spatie»d9 
raak=O:kogel=O:opnieuw=O:printchr$(147) <shift»/<spatied6ba 
sprite=53248:tenable=spritet2igshift»/<spatie»63 

poke wijzer,13<shiftd/Cspatied67 

poke wijzerti,l4<shift»/{spatiedel 

poke wijzer+2,15<shiftd/<spatie»d5 

poke enable,1i+24shift»/éspatiedf2 

poke Kleur,3:spokekleurt!,7tpokekleurt2,1éshift»/<spatie»37 
poke53271,255:poke53277,255:poke53264,Olshiftd/éspatiedde 
bots=peek(53278)Cshiftd/<spatied44 
return{<shift»/éspatie>90 

:s{shift>/Xspatied2a 

z<shift>/<spatie>lÒ 

poke sprite,60:poke spritetl,604shiftd/{&spatie)3a 

poke sprite+2,130:pokespritet3,2004shift»/<spatie>ba 
veturn{<shift>»/<spatied0l 

:<shift»/&spatied8f 

sCshift»/éspatie»99 

gosub 8000 :rem doel bewegen{shift>/{Xspatie>0c 

gosub 8100 :rem ’kanon’ bewegen{shift»/<spatie»40 

gosub 8300 :rem kogel/kanon testen{shiftd/éspatie>9d 
veturn<shift>»/&spatie»17 

:<shiftd/{spatie>bS 

z<shiftd/{spatie)8f 

for x=l to 4Cshiftd/<spatie»89 

fot y=0 to 15{<shift>/éspatied83 

poke 53281,y:poke646,yti<shift»/éspatie»df 

print chréC19)shifts/<spatie) da 

for z=ltoS:printehr$Ci3)inext<shift»/<spatie»8d 

print” vaak!!!"éshift»/éspatie>10 
nextinext:poke53281,0:poke646,1:poke enable,O{shift>/{Xspatie>0d 
print chr#Cl7)chrsC17)” opnieuw?" <shift>/{Xspatie»6a 
getas:ifas)"j"'andas{h"n" then 7090{shift»/Xspatiedde 
opnieuw=OXshiftd/<spatied7a 

if a$="j" then opnieuw=l<shift»/{spatie>b0 
veturn<shiftd/<spatied45 
t=peek{sprite)+2{shiftd/<spatiejeb 

if t>255 then t=30éshift»/{<spatie»4b 

poke sprite,t{<shift>/{spatiedad 

veturn{éshift»/sspatiescf 

:{shiftd/{spatieddd 

séshift>/<spatie>57 

getas{<shift>/<spatie>d7f 

if af="," then 8140 :rem rechts{shift»/{<spatiedc5 

if a$="." then 8170 trem links{<shiftd/{spatied9a 

if a$=chr$(13) then 8200 :rem Kogel<shift>/<spatiedl7 
returnéshiftd/{spatied56 

t=peek(spritet2}tl:iftd>200 then t=100€shiftd/{spatiedea 
poke satiter2,tSshifts/Cspatlesb 
weturn<shift>/&spatied71 

t=peek{spritet2)-l:ift<100 then t=2004shift»/{Sspatiedcf 
poke sprite+2,t{shift»/{spatie»95 
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Ke Te Kel Ae 


returné<shiftd/{spatie),Gf 

if kogel then veturn<shiftd/Xspatie>c0. 
Kogel=téshift»/<spatiejfb 

poke sprite+t4d,peek(sprite+2){shift>/<spatie>42 
poke sprite+5,190&shiftd/<spatie>l3 

poke enable,l+24+4éshift>/{<spatie>gd 
returnéshift»/Xspatie)94 

:éshift>/éspatie>54 

:<shift>/Sspatie»d42 
t=peek(sprite+5)-5{shift>/<spatied6l 


if t(30 then Kogel=Orpoke enable,lt2:return<shift»/{spatiedch 


poke sprite+5,t<shift»/{<spatied22 
bots=peek(53278){<shift>/{spatiede0 

if (bots and 7)=5 then 8360:rem raak!4shift»/{spatie>0c 
raak=0O:treturn<shiftj/éspatied91 
raak=ltpoke enable,l+2:return{éshift»/{spatied8f 
:<shift>/{spatieda8 

:<shift>/<spatie>a6 

data 0,0,0,0,0,0,0,0éshift»/<spatie»98 

‘data 0,0,0,0,0,0,0,04shift»/{spatie>99 

data 0,0,0,0,0,0,0,0{shift»/{spatie>9a 

data 3,255,254,6,0,6,13,85<shift»/<spatie)96 

data 110,26,170,218,53,85,182,964shift)/Cspalie)da 
data 3,108,255,255,216,128,0,48&shift>/{spatieda5 
data 255,255,224,0,0,0,0,06shift»/éspatie)da 

data 0,0,0,0,0,0,0,0<shift»/éspatied9f 

data 0,0,6,0,0,6,0,0{shift>/&spatie>90 

data 6,0,0,6,0,0,6,2554shift»/<spatie»95 

data 255,255,2559,255,255,192,0,3Cshiftd/Cspatie,gd 
data 207,255,131,216,0,219,216,96éshift»/éspatle»a2 
data 219,217,156,195,217,0,219,2174shiftj»/éspatie)9f 
data 0,219,21/,156,195,216,96,2196shifte/Cspatlead 
data 216,0,219,207,295,131,192,0éshift>/{<spatie>»97 
data 3,255,255,255,255,255,255,0{shift»/{Xspatie>94 
data 0,0,0,0,0,0,0,04shift»/{<spatieda8 

data 0,0,48,0,0,48,0,0{<shift»/{<spatieda9 

data 48,0,0,48,0,0,48,0Xshift?»/{spatie»96 

data 0,48,0,0,48,0,0,51Cshifrs/Cspatie,dt 

data 0,7,255,128,7,255,224,7&shift»/Cspatiedad 

data 255,144,0,0,24,0,0,48<shift»/<spatiedad 

data 0 0,96,0,1,192,0,154shifts/gspatlejae 

data 0,0,24,0,0,0,0,0{shift»>/<spatie»99 
raak={{shift>/<spatiedfd 

if not raak then print” hallo"€&shift)»/Cspatie)26 


_MACHINETAAL DEEL 


SCHUIVEN MET BITS EN BYTES (f) 


Een nieuwe — maandelijkse — rubriek voor enthousiaste pro- routines helpen de problemen 
rammeurs in machinetaal, door Roelf Sluman. Deze. maand: echter voorgoed de wereld uit. 
RINT-routines voor beginners en gevorderden, vertragen in __We zorgen er om te beginnen 

machinetaal, alfabet op het scherm afdrukken en eenvoudig voor dat onze strings eindigen 

vermenigvuldigen. op een nul. Op deze nul wordt 
namelijk in beide routines ge- 
test. 

De routines (de eerste is een 

eenvoudige versie, de tweede 


HOE MOEILIJK IS PRINTEN 
Dankzij het ROM van de 


LDA #$41 
JSR SFFD2 


Commodore-computers is het 
op het scherm zetten van een te- 
ken een zeer eenvoudige zaak. 
Het eenvoudigste voorbeeld 
hiervan is (voor de letter ’A’): 


Het wordt echter al wat moeilij- 
ker als we met langere teksten 
(strings’ in Basic) te maken 
Krijgen. De onderstaande twee 


maakt gebruik van een wat 
moeilijker adresseringswijze) 
werken met een INDEX- 
register. In de eerste routine is 
dat het X-register, dat wordt 
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verhoogd, zodat er naar de vol- 
gende letter wordt gewezen. 

De computer doet het volgende 
(routine 1): 

00015 zet indexregister op nul, 
zodat dit register straks naar de 
allereerste letter wijst. 

00016 haal deze letter op, en zet 
hem in À 

00017 als A gelijk is aan nul 
(BEQ”) zijn we bij het einde 
van een string aangekomen. 
Springen naar KLAAR dus. 
00018 de inhoud van A 











PRINTEN. Figuur 1 
00019 X verhogen. Als de in- 














houd van X gelijk was aan 255, LIMEH LUC CODE LHE 
wordt deze nul. 
AE vade1 aad HEK HET PRINTEH VAM EEM BOODSCHAP 
lgende tek A B A Ga S B 
a a HEDH2 ADH iP HET TELEMISIESCHEEN #%# 
en HAAS _ AAAA ; 
een nu. e HAEOS AAG4 i 
ring gedecteerd. In beide geval- HAAS _AAHH E-EAHAG 
len komt de programmateller AED ZAAD ö 
hier terecht en zijn we klaar met Ea SHH PRINT = &FFDE 
de routine. Se f 
Build ZAAG IMK LEHGTE WAM DE BOOUSCHAP: 
On 5 HAGIZ SAAd ; 
a en rn aaa1d 8906 3 _ LAATSTE BYTE MOET B ZIJN 
; \ LAG AAE 3 
gewijden, zie de volgende afle- HEOIS BAHA HZ AB LUX #6 
vering van de cursus machine- BABIES BHAZ EU HE SH LIS LA BOOST» X 
taal in het februarinummer!), HAI? Z4H5 FO HE BED KLAAR 
kunnen hun voordeel doen met ai SHE zó 12 FF JR PEIHT 
de volgende, iets uitgebreidere On In 
routine. (*listing 2%) ZE BOOE UB FS BHE LUS 
Zl AHO 5 
Doordat we ZEROPI en en ze d 
e BH En ', ETS 
ZEROP2 als wijzers gebruiken, 5 oe KLAAR RTS 
kunnen we maar liefst 64K ge- 4 DE g 
heugen adresseren. Dit betekent Ze BOE A4 EOUDSE „Brie l4f,lrotsole 
dat we wat strings betreft niet 5 BHAP 11 
meer gebonden zijn aan een d 2 Sala 11 
maximum van 256 tekens. Eén JES BO Î AL 
van de vaste subroutinesinonze  Bädze BIZ 43 af „BYTE “COMMUDORE DOSSIER © 
eigen machinetaalprogramma’s dn en so dE BrTE 5 DET MEER HOOR zi 
is dan ook PRTMSG, een routi- Ge, Baat En a : en í ee Ee o 
ne die sterk lijkt op listing 2! He Baa2 vú ; Ean 
Let ook in deze routine weer op na BA4 ; 
de nul aan het eind van de a HAA „EMT 
string (regel 00035). Hierop 
wordt in regel 00021 getest! 
ERRORS = AAA 
EVEN RUST 
Listing 3 is een voorbeeld van En a 
een comfortabele vertragingslus. SNEDE TABLE 
Er wordt geen geheugenplaats SME WALE 
en 2 en a De bOODSC S00E KLAAR 400 LUS 8062 PRINT _FFDZ 
ruiken we het register X en Y, 
die dus elk 256 maal worden 
verhoogd. De vertraging is on- EHD OF ASSEMEL! 
geveer driekwart seconde, even- 
tueel kunt u hem (door Y te Figuur 2 
verhogen) korter maken. En 
Natuurlijk kunt u ook langere IER De LOE LEE 
vertragingen genereren. Dit gaat 
heten oo de nokende  aeoer aang 5 HET PRIHTEH WAN EEN BOODSCHAP 
a GERE AAHd i VAN ONBEPERKTE LEHGTE 
BUS HAHA 6 
LDA #10, HAGd4 HEE 1886 RUELF SLUMAH 
vrij naar keuze HAAHA AAAA 5 
LDX #0 HOES HAHA KEA 
LDY #0 HOOHP 2000 , 
STA ZEROP1 Boen En ï HE e a 
LUS DEX Re A 
BNE LUS BAALE  SAEH EEROPS = ZEROP1#1 
HEEll SHA ö 
ae Ee dial 2540 5 
BAAI BHE i CAHTSTE Prik Miel 3 2IJH 
DEG ZEROPI GAAI4 ZDA ) E 
HIHI SAdd AZ 1A 


BNE LUS LX HEHE ‚LAGE BATE 
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Door de waarde in A te verho- 
gen of verlagen, kunt u de ver- 
tragingslus respectievelijk langer 
of korter maken. Vermenigvul- 
dig de inhoud van A met 0,75 
om ongeveer op de uiteindelijke 
vertragingstijd uit te komen. 


ALFABET 

Tot slot van de listings een ab- 
soluut nutteloze, maar daarom 
niet minder interessante routine. 
Het alfabet wordt op het 
scherm gezet, gebruik makend 
van (alweer) de PRINT-routine 
$EFD2. Dit is een leuke routine 
om mee te experimenteren (zet 
eens 20 keer het alfabet op het 
scherm, PRINT het alfabet eens 
van achter naar voren enzo- 
voorts). Let even op de LDA 
#13 en JSR PRINT instructie 
(regel 00021 en 00022): de tekst 
’READY’ zou zonder deze twee 
regels meteen ACHTER het al- 
fabet komen te staan. 


GEMAKKELIJK VERMENIGVULDIGEN 
Veel machinetaalprogrammeurs 
hebben een grote hekel aan ver- 
menigvuldigensroutines. Geluk- 
kig kunnen we zeer vaak profi- 
teren van de voordelen die het 
tweetallig stelsel ons biedt. 
Schuiven we de inhoud van een 
geheugenplaats immers naar 
links (houdt rekening met een 
carry!), dan wordt de inhoud 
van die geheugenplaats met twee 
vermenigvuldigd. 

Dit maakt het werken met 
machten van twee zeer eenvou- 
dig, maar ook een vermenigvul- 
diging met 10 behoort tot de 
mogelijkheden. Kijk maar eens 
naar de volgende routine: 


(TEMP1 en TEMP2 bevatten 
een getal) 
LDA TEMPI oorspronkelijke 
getal 

swordt ook nog 
eens in 

;TEMP3 en 
TEMP4 gezet! 


STA TEMP3 
LDA TEMP2 


STA TEMP4 
ASL TEMPI ;schuif naar 
links 

scarry naar 


TEMP2 (x 2) 


ROL TEMP2 


ASL TEMP! 
ROL TEMP2 x4 


> 








et 
Tt 


El EE Et 
CE CE Ot 

08 ED u Ma 
ESE 
de Pl 


VE tet nt 
eet et et EA El EE IN 


Dt Lod Cat lat Pt Dt Pe PA AA RS B Pet Al Pen 


Det Cl Dal Oa Ce ad Ct OE 


Et 


it Ô 


Ia 
ed 
det 


1D OA MD 0 


Ĳ 


ont ON OE 
RD DE EI 


DEE 
et 
LD WD Oe ME PN 


en 


Pat EN Ei 


NE CI 
Et 
pd 
A 


OO 0 
1 


Did CT B Ne EE 
5 
pr 
ii 


a, 


Et EN 
En 
Ù 


(et 
ol 
a 
es 


EE ED Ei EE 
El 
E 
iT 


È 


A 


5 

ee 

hm, 
In Dee U 
Felt et en OO 


kn 


int 


EE DE Ee 


ve, 
et 
cn 


TE 1E 


Ge EE EE 
JC Fe} AD 
TOO OD A ND 
Oe 


KD ie OO ef Ch ET 
E 
& 


ERRORS = GIADG 


ZED TABLE 

ZNMECL 
BOUWS 
ZEROEL 


WALE 
AR 
Hi E 

EHD OF HSSEMBL 

Figuur 3 


LINER LUC CODE 


a! 
nt 
LE IED 
EN 

en! 


0 ze, 
et AE Gl 


UT 
sl Hai bet 
tf 
Re 
Dn 


el 
Ot CO EEN EL Ct EL Lí 


te 
ke 
et 


it 15 


Et EN CNE Et Cf 


Ort 
et 
Et EE Et EL Et EN EE A Et 


ee! 
Eek ek ek pek jen ek jet ek ek 


a 
Ee 
ad 


En 
HENNIE 


DOE Oi 
Eart 


Del dE 
at Et NE 


beng 
en 


TE EL It Et 


Et et 15 
ae en 
Vet EE OD A Et Fet 


nt Et Et 


, 
Ct 
Tt EL Et 


Od CN B De En LE 
Et Et 1d 


at Et Et Ct KN Ct EE CI 


in OD OD 


Ì 


ERRORS z 


SMEED 


ar : 
LLS 


ERD OE 


HE ELODSG 
ZEER 
ZEROPZ 

HE 
LEEKOPI tor 
LAAR 
FRIHT 
ZEROP1 
LLS 
ZERDPE 
LU 


AGE brik 


KLAAR 


BOODSE … 


„BYTE 
_.BYTE 
„BYTE 
„EYTE 13,0 


COMMODORE DOSSIER 7 
DOET HOG VEEL MEER 7 
ZOE 2IJM LEZERS! 


„EHD 


ELAAR ERIUT EFO 


LEROPZ 


LHE 


ERR VERTRAGINGSROUTIHE #4 


„DEZE KOUTIME HAHET GEBRUIE 
Zuid HET A= EM HEI PeREGIETER 


„1556 ROELF SLUMA 


Li #4 
LI Hi 
LH 
EHE 
IM 
BHE 
ETS 


LLS 


Lis 


„EHD 
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_MACHINETAALDEEL1 


EL 

LDA TEMP. 
ADC TEMP3 — 

STA TEMPI … 
_LDA TEMP2 
DADCTEMPA 
_ STA TEMP2 ;x 5! 


ASLTEMPI 
ASL TEMP? ;x 10 


__ Gesar 
_ gagge 
_ gagaz 


HEBU6 


65013 


Figuur 4 
LINE LOL CODE 


BAE 
EAA 
ABB 
GEE 
A5AH 
_gogg 
sdad 
BH 
2008 
SAAB 
2400 
z00d 
8000 
aaa 
AAG 
B0H6 
ZHAE 
BOA? 
4009 
ZOAB 
BBB 
SAAD 
Ba1B 
g018 


Baga 
AHGE 


AGHA 
20908 
Bada 
GAAL 
Haal 1 
Baal 


Bag ld 
BALS 
Baes 
BAAL 
Bid 
B4013 
did 
AAA 
AAG 
BBZ 
Baded 


ERRORS = OUAGH 


SMB TABLE 


BPEOL 
LAAR 


WALDE 
HAZE 


END OF ASSEMBLY 


Ml 


Maandelijkse rubriek met korte programma’s, routi- 
nes en utilities. SER viezen van binnen- 


en buitenlandse pro 


essionals. Lezers helpen lezers. 


_Het zijn de kleine dingen die het doen. Tips & trucs 
van lezers worden, indien geplaatst, beloond met 50 


gulden. 


TEKSTKLEUREN OP 
EENVOUDIGE MANIER 


Voor het bepalen van de tekst- 
kleur kunt u, in plaats van de 
‘onhandige’ karakter- 
besturingstekens, ook gebruik 
maken van een speciaal hiervoor 
ingesteld register. Dit register 
(646 op de Commodore 64 en 
de VIC-20) accepteert getallen 
van 0 tot en met 255. Er wordt 
echter, net als bij de rand- en 


schermkleur, alleen naar de 
laagste 4 bits (getallen van 0 tot 
en met 15 dus) gekeken. De 
kleurcodes van register 646 cor- 
responderen uiteraard met die 
van de rand- en schermkleurre- 
gisters. Voor groene letters doet 
u dus het volgende: 

POKE 646,5 


LIS 


LIHE 


ze 


51986 ROELF SLUMAH 


H=$0 000 


KLAAR = A1 


PRINT = #FFD2 
Ö | 


HERT 
PRIHT 


LD 
T4H 
JER 


Lis 


: INK 
CPX 
BHE LUS 

#13 

PRINT 


LH 
JM 


PRIHT 


CBM/SHIFT- 


HELHAE 


144 PRIHTEN WAH HET ALFABET #4 


SHECLI-CODE WAH TEKEN 


MA DE 2 


JEERSTE LETTER 


TOETSCOMBINATIE 


Sommige programma’s (waaron- 
der professionele, zoals Super- 
base 64) houden er geen reke- 
ning mee dat, tijdens het laden, 
de computer wel eens in 'onder- 
kast’ (kleine letters) zou kunnen 
staan. Dit heeft tot gevolg dat 
de titelbeelden er vaak nogal 
raar uitzien, omdat een aantal 
van de grafische tekens dan 
door hoofdletters wordt ver- 
vangen. 

Als u deze fout zelf niet wilt 
maken, kunt u de volgende 
PRINT-opdracht in uw pro- 
gramma (het liefst meteen al in 
het begin) verwerken: 

PRINT CHRS$(14):REM NAAR 


ONDERKAST of 

PRINT CHR(142):REM 
NAAR BOVENKAST 
Vervolgens kunt u de 
SHIFT/CBM toets-combinatie, 
welke (interruptgestuurd) de 
computer tussen onder- en bo- 
venkast schakelt, ook nog uit 
zetten. Hiervoor geeft u de vol- 
gende opdracht: 


PRINT CHR$(8) :REM 
SHIFT/CBM UIT 


Met PRINT CHR$(9) accepteert 
de Commodore 64 deze toets- 
combinatie weer. 
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_TIPSEN TRUCS _ 





_ONVERKLAARBARE 
SYNTAX ERROR 








houden van de sprites, blijft er 
geen tijd genoeg meer over voor 


er niets meer van de zogenaam- 
de 'time out’ tussen computer 








Als u er van houdt om met ma- 
chinetaalroutines te stoeien, of 
als u programma’s intoetst 


waarin nogal wat POKEs wor- 


den gegeven, kan het voorko- 
men dat u opeens wordt gecon- 
fronteerd met een SYNTAX 
ERROR, terwijl u absoluut 
NIETS fout doet! 

Zelfs het LIST-commando geeft 
al een SYNTAX ERROR, om 
van een RUN nog maar niet te 
spreken, 

De meeste computeraars hebben 
voor dit probleem een zeer een- 
voudige oplossing: hun compu- 
ter uit- en weer aanzetten. 


_C-64: POKE 2048,0 


Soms biedt de volgende POKE 


echter uitkomst: 
VIC-20: POKE 4096,0 
C-16 : POKE 4096,0 


_ Deze POKEs zetten de aller … 


eerste byte van het Basic- 


geheugen op nul. De computer 


verwacht dat deze byte nul is, 
omdat hierop wordt getest bij 


het LISTEN en RUNNEN van — 


een Basicprogramma. Als er per 
ongeluk in deze geheugenplaats 

wordt gePOKEd, verdwijnt die 

nul dus, met bovengenoemd re- 
sultaat. 


SPRITES EN DISK-DRIVE 


Eén van de onbekendere bugs in programma’s treedt de bug op). 


de Commodore 64 heeft een 
Commodore Dossier program 
meur nog niet zo lang geleden 
een slapeloze nacht bezorgd. Op 
de raarste momenten had de 
disk-drive er geen zin meer in. 
Dit gebeurde slechts af en toe, 
en dan altijd tijdens het laden 
en saven van programma’s (in 
dit geval een machinetaalpro- 
gramma, maar ook bij Basic- 





De fout openbaarde zich voor 
het eerst bij het schrijven van 
het ANIMATIE-programma, 
dat een intensief gebruik maakt 
van SPRITES. Doorgaans be- 
vinden zich, tijdens het werken 
met dit programma, acht sprites 
tegelijkertijd op het scherm. 
Hierin blijkt het probleem dan 
ook te zitten: als er teveel spri- 
tes op het scherm staan, klopt 


en disk-drive. De drive wacht 
(tevergeefs) op signalen van de 
computer dat data goed zijn 
ontvangen/weggestuurd. Omdat 


___ de video-processor in de Com- 


modore 64 zeer veel tijd moet 
besteden aan het op het scherm 


Een aantal Commodore- 
gebruikers heeft problemen er- 
varen in de vorm van plotseling 
verdwenen files op diskette. De 
fout hierin blijkt volgens een 
Amerikaans computervakblad te 
zitten in het DOS (Disk Opera- 
ting System) van de 1540 en 
1541 disk-drive. Hij treedt, on- 
der bepaalde voorwaarden, op 
bij het gebruik van het 
commando: 

SAVE ”@:FILENAAM”’,8 
Het ’apestaartje’ betekent dat 
de drive een eventueel onder de- 
zelfde naam op disk bestaande 
file moet vervangen door de file 
in het geheugen. 

Gelukkig is er een manier om, 
terwijl u toch van de handige 
’replace’-functie gebruik kunt 


de disk-drive. 5 

Een tip aan sprite-gebruikers _ 
dus: zet, bij het ophalen van 
een file van disk, ALTIJD de 


sprites uit. Dit bespaart u bij- 
„zonder veel ergenis.… 


SAVE + REPLACE COMMANDO 


blijven maken, geen files meer 
te verliezen. Hiervoor behoeft u 
slechts één teken aan het com- 
mando toe te voegen: 

SAVE ” @0:PILENAAM?,8 


Hierdoor raakt de drive niet 
meer in de war, waardoor uw 
files behouden blijven. 

Gezegd moet worden, dat een 
aantal commerciële program- 
ma’s dezelfde programmeerfout 
bevatten. Het bekendste voor- 
beeld daarvan is VIZAWRITE 
64, een overigens uitstekende 
tekstverwerker. Gebruik bij Vi- 
zawrite dus nooit meteen het 
SAVE-commando, maar 
SCRATCH de eventuele file 
eerst met behulp van de 'D’- 
instructie. 


_ COMMODORE DOSSIER AKTIEF PROGRAMMA'S _ 


Maandelijkse rubriek met listings van programma’s die waard zijn in uw programma-bestand te worden opgenomen, Alle pro- 
ramma's zijn voorzien van een controle-getal. De werking van dat controle-getal wordt uitvoerig beschreven in de HANDLEI- 
ING BĲ DE LISTINGS die u in elke Commodore Dossier kunt vinden op pagina 37. 


TRACKLISTER 


Het korte handige programma 
controleert track voor track of 


10 
20 
30 
40 
70 
80 
20 
100 
110 
120 
130 
140 
150 
160 
170 
200 
210 


uw schijf in orde is. Door C. 
Jong. 


printchrs(l47) shifts /<spatie»67 
pfintohr&C18) tracktester” Cehifts/Sspatie)0c 
printchr${l8)lchrs(17) dit programma test uw track’s"{<shift»/{<spatie>a6 
printchr$({i8jchr$(1i7)"druk op spatie om te beginnen"{shift»/<spatie>82 
wait203,63<shift»/<spatiedcc 
openl,8,15,“i°{<shift>/&spatie>a7 
open2,8,8,"#"<shift>/<spatie»f8 
fori=lto35éshift>/{<spatie>8d 
Delntei, sul 8 0 Tais 
input#l,a,b$:print"track”;is 
nextéshiftd/éspatied00 Á 
closeZicloseli<shift>»/<spatie»b5 
printchrs&l1i8dchrst17d'einde tracktester "{shiftd/Cspatie>0 
input”nog eens (j/n)? “sas&shift>/<spatie>l5 

if a$="j"thenlO{shiftd/{spatiedta 
endinew<shift>/€&spatieddO 
closel<shift>/<spatie>43 


O"£shift»/<spatiedfe 
b$saéshift»/<spatie>53 
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COMMODORE DOSSIER AKTIEF PROGRAMMA” 






MULTI BOOT EN MULTIKAART 


Zeer handig en keurig verzorgd. modem beschikt. Telefoonnum- sparen savet het programma NB. In regel 90 verslikte onze 
programma van Daniel Drom- mers zijn op te roepen uit het vanaf de eerste van de maand printer zich. Tussen aanha- 
__me. Het programma kan 100 adressenbestand. Zowel het die werd ingevoerd. Bij wijzigen lingstekens hoort te staan: 
adressen herbergen en een agen- adressenbestand als het eerst oude gegevens verwijderen. FOUT IN DATAREGELS. Als 
da bijhouden van een heel jaar. _ terminal-programma beschikken Zoals u ziet, bestaat het pro- de checksum deze regel zo niet 
Verder zit er een bescheiden over een help-toets, zodat verde- gramma uit twee delen. Multi- _ accepteert, even uitschakelen. 


terminal-programma in om ver- re uitleg hier overbodig is. Ge- _ boot is de Basic-loader voor de (zie handleiding pagina 37 Com- 
binding te kunnen leggen met gevens kunnen worden bewaard layout en multi-kaart het eigen- _modore Dossier) 
iedereen die over een 300 baud _ op cassette en schijf. Om tijd te lijke programma. 


10 printchrs(147dehrsCiadehrsCB)rpoke646,1l4:goto3Osshift>/Lspaties5a 

20 pokeZll,x:poke214,y:sys58732ireturn<shiftd/{<spatie>0l 

30 poke53280,6:poke53281,6:rv$=chreCi8dECshiftd/<spatie>42 

40 x=15:y=8:gosub2O:print"MULTI=BOOT"<shift)»/&spatie>ch 

50 x=i2:y=l0:gosub2û:print"geschreven door"{shift»/<spatie>3b 

60 x=ll:y=l2:gosub20:print"Daniel van Dromme“<shift>/{spatie>sc 

70 x=S:y=l4sgosub20:print verwerking data = even geduld”:printiprintéshift>/{spa 
tieh6f 

80 fori=49152to49800:readz:pokei,xis=stxinextéshiftd/<spatied37 

90 ifséh82103thenprint"F O U T IN D A TAREGEBSA!!"rend(shiftd/{spatie>aë 
100 printchr$(147):printrv$" FI laad MULTI-KAART van disk “sprint<shift»/<spa 
tie>93 

110 printrv$”"F3 laad MULTI-KAART van cassette "Cshift>/{spatie»78 

120 geta$:ifa${hchr$(133landassdchrsCi34)theni20lshift»/{spatie)31 

130 poke53280,14:printchr$(142dchrs(147)sCshift»/C<spatied9d 

140 ifaf=chr$(134dtheni60shift»/<spatiedb0 

150 print”load "+chr$(34)+"multi-kaart"t+chr$(34)4",8"“:goto 1704shift>/4spatie>9i 
160 print”load “+chr$(34)+"multi-kaart"+chr$(34)4shifts/{<spatied9c 

170 poke631,19:poke632,13:poke198,24shift>/<spatiedla 

180 datal69,67,162,40,157,255,3,202,208,250{shift>»/{spatiedla 

190 datal69,67,162,40,157,119,4,202,208,2504shift>/Xspatiedie 

200 datal69,67,162,40,157,191,7,202,208,250<shift»/{spatie>69 

210 datal69,66,141,40,4,141,80,4,141,160,4,141,200,4,141,240,4,141,24,5,141,64 
„S<shift>/{spatied>54 

220 datal41,104,5,141,144,5,141,184,5,141,224,5,141,8,6,141,48,6,141,88,64shif 
t»/<spatie>64 

230 datal41,128,6,141,168,6,141,208,6,141,248,6,141,32,76shift>»/éspatie>67 

240 datal4l,72,7,141,112,7,141,152,74shift>/<spatied71 

250 datal69,66,141,79,4,141,119,4,141,199,4,141,239,4,141,23,5,141,63,5 shift) 
/Xspatie>5i 
260 datal41,103,5,141,143,5,141,183,5,141,223,5,141,7,6,141,47,6,141,87,64<shif 
t>/<spatiedb2 

270 datal4l,127,6,141,167,6,141,207,6,141,247,6,141,31,74shift>/{spatie>8d 

280 datal41,71,7,141,111,7,141,151,7,141,191,74shift>/<spatie>8d 

290 datal69,112,141,0,4,169,107,141,120,4,169,109,141,192,7<shift>/{spatie>98 
300 datal69,110,141,39,4,169,115,141,159,4,169,125,141,231,7,96<shift>/<spatie>84 
310 datal69,195,162,31,157,124,4,202,208,250lshiftd/{spatiebdal 

320 datal69,160,162,31,157,164,4,202,208,250shift>/<spatie>dg9 

330 datal69,160,162,31,157,204,4,202,208,2504shift>»/&spatiedd6 

340 datai69,160,162,31,157,244,4,202,208,250Cshift»/Cspatiedec 

350 datal69,160,162,31,157,28,5,202,208,250&shift>»/éspatiedff 

360 datal69,160,162,31,157,68,5,202,208,250<shift»/&spatiedced 

370 datal69,160,162,31,157,108,5,202,208,250<shift»/<spatieve0 

380 datal69,195,162,31,157,148,5,202,208,2504shift>/{spatiede0 

390 datal69,5,162,31,157,124,216,202,208,250<shift)»/<spatie»18 

400 datal69,5,162,31,157,164,216,202,208,250{shift»/{spatie>0a 

410 datal69,5,162,31,157,204,216,202,208,250{shift>/{spatie>05 

420 datal69,5,162,31,157,244,216,202,208,250Xshift»/<spatie>3f 

430 datal69,5,162,31,157,28,217,202,208,250<shift»/{spatie>Oc 

440 datal69,5,162,31,157,68,217,202,208,2504shift>»/{<spatiedle 

450 datal69,5,162,31,157,108,217,202,208,250{shiftd/{spatied53 

460 datal69,5,162,31,157,148,217/,202,208,250<shift»/<spatie»59 

470 datal69,194,141,164,4,141,204,4,141,244,4,141,28,5,141,68,5<shift>/{<spati 
ed65 Ì 

480 datal4l,108,5{shift»/{spatie>5a 

490 datal69,5,141,164,216,141,204,216,141,244,216Cshift»/{4spatie>55 

500 datal41,28,217,141,68,217,141,108,2174shift)>/<spatie>db 

510 datal69,194,141,195,4,141,235,4,141,19,5,141,59,5,141,99,5,141,139,5Cshift 
»/Sspatie»64 
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520 datal69,240,141,124,4,169,238,141,155,4,169,237,141,148,54shift»/<spatiedb4 
530 datal69,253,141,179,5{shift»/Xspatieda7 

540 datal69,5,141,124,216,141,148,217,964shift)/<spatie>92 

550 datal69,195,162,36,15/,185,9,202,208,250Cshifto/éspatiesbf 

560 datal69,160,162,36,157,225,5,202,208,250{shift»/{<spatiehaa 

570 datal69,160,162,36,1597,9,6,202,208,4504snhifts/sspatiesaf 

580 datal69,160,162,36,157,49,6,202,208,2504shift»/{spatieje5 

590 datal69,160,162,36,157,89,6,202,208,250Cshift»/{spatieje3 

600 datal69,160,162,36,157,129,6,202,208,250Cshift»/{spatiedce 

610 datal69,160,162,36,157,169,6,202,208,2504shift>/&spatie»f0 

620 datal69,160,162,36,157,209,6,202,208,2504shift)»/{spatie»fb 

630 datal69,160,162,36,157,249,6,202,208,2504shift»/Sspatiedes 

640 datal69,160,162,36,1597,33,/,202,208,2504shift»/Cspatie»2d 

650 datal69,160,162,36,157,73,7,202,208,250Cshift»/&spatie»23 

660 datal69,195,162,36,157,113,7,202,208,2504shift»/éspatie»00 

670 datal69,194,141,225,5,141,9,6,141,49,6,141,89,6,141,129,6,141,169,64shift,»/ 
<spatie»36 

680 datal41,209,6,141,249,6,141,33,7,141,73,7<shiftd/<spatie»0s 

690 datal41,6,6,141,46,6,141,86,6,141,126,6,141,166,6,141,206,6,141,246,6{<sh 
ift>/<spatie»0b 

700 datal41,30,7,141,706,7,141,110,74shift)>/{spatied0a 

119 datal69,240,141,185,5,169,23/,141,113,7,169,238, 141, 222,59 Cshift>/cspatie,/e 
720 datal69,253,141,150,7,96<shift»/<spatie)af 






















































MULTI=KAART 


100 printchr$(147)chrsCi4)chr$(8)shiftd/<spatie,34 

119 open2,2,3,chr$(6+32)tchr$(324+128) Cshift>/Sspatied49 

120 dimasC11,30,18),m$Clitd,absCiOOlrcus=chr$CiE6)Lshift,/<spatieda2 

139 poke53280,6:poke53281,6:poke646,14shift»/{<spatie)3d 

140 x=14:y=7:gosub380sprint" MULTI=KAART" {shift>/<spatie>83 

150 x=12:y=l0:gosub380:print geschreven door"{<shift>»/<spatieda6 

160 z=lt:y=l2:gosub380:print"Daniel van Dromme"{shift»/<spatiedf9 

170 x=5:y=15:gosub380iprint"verwerking data = even geduld"<shift>/<spatie>bb 
180 forx=Otoli:reada%:m$(x)=afsnext{<shiftd/Cspatie>f6 

190 v=53248:poke2040, 14:pokev+39,O:form=896to96Osreadg:pokem,agrnext{shiftd/{<spa 
tie»86 

200 cl&=chr&Cl47d:hof=chr$CiJdirvs=chrEClBd:rof=chrsCi4E)d shiftd/Sspatiede3 

210 ris=chr$(29):les=chrsC15TI:dof=chr$CijJd:sups$=chr$(145) Lshiftd/Cspatiedfa 

220 fi$=chr$(133):f3$=chr$(134):fD$=chr$C135): f7$=chr$(136)Cshiftd/Lspatiede2 
230 f2$=chr8CL3T7):f4S=chr$(138):f6S=chr$CIZI :fBS=chr$Ci4ONSshiftd/<spatierds 
240 sp$=" “<shift>/<spatie>45 

250 printelf:ix=2iy=li:gosub380lshift»/<spatie»f7 

260 print'geef de datum in (vb. 17/01/1986):":x=2:y=12:gosub380:inputdts{<shift> 
/<spatiedch 

270 iflen(dt$)O10 then 250{shift)/{spatiejel 

275 t2=val(lefts(dt$,2))-l:ti=vallmids(dts,4,2))=-1i<shiftd/<spatie»31 

280 goto2310<shift>/<spatie>90 

330 data jan,feb,maa,apr,mei,jun,jul,aug,sep,okt,nov,dec{shift»/{spatie>fd 

340 data ossen 255, 255, 290,,s 255,0 2500200 20e sns 
„<shift>/éspatieded4 

850 data Oosassorassnsoeshitbe/kepal lede 

360 geta$:ifa$=""then3604shift>»/<spatie>59 

370 return<shift>/<spatie»fd 

380 poke21l,x:poke214,y:sys58732:returnéshift)»/{spatie>68 

390 ts=""1i=0€shift>/<spatiesb4 

400 printcu$s{<shiftd/<spatied0l 

410 gosub36Oshift»/<spatie»23 

420 ifascla$)=ZOandts=""then410<shift>/{<spatiehc3 

430 ifascla$)=13thenbo0éshift>/<spatiedad 

440 ifa$=cl$ora$=hoforasclas)d=l4Boraf=dofthen4i0{shift>/{spatiedcd 

450 ifaf=leg$oraf=risthen4tO{shiftd/<spatie>78 

460 ifasc(as)=20andirOtheni=i-t:t$=left$(t$,id:printlesile$::goto 4004shift»/<s 
patiedbc 

470 printle$s” "le$sa$icusséshift»/{spatie»39 

480 ifi>mthenprintless" "sle$:goto500Xshift>/&spatie»47 

490 t&=t&ta$:i=itl:goto4iOXshift>/<spatie»03 

500 printless® “sreturn<shift»/{spatiejee 

sS10 printcl&:x=2:y=il:gosub380lshift»/<spatie»f2 

520 printchr$(l44)el$:pokevt+21l,l:sys49152:poke53281,14:gosub 530:goto570lshift» 
/Xspatie>26 

530 x=l:y=23:gosub38OXshift»/<spatie»9/ 
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“séshift> 





Ai vSs Lo ovoss del Tovves'f3erd' vos: ner 





540 printrv$s"fl"isro#s menu 
/Xspatiedb3 

550 printrv$s"f5-6"sross"last “srv$s"f7"ivoss"goto"{<shift»/<spatie>a6 

560 x=30:y=l:gosub380:print"’x’ help':return4shiftd/C<spatie>bb 

570 x=/ty=ligosub380:print m$Cti)shift>/<spatied27 

580 x=22:y=ligosub38O:print right$ldt$,4)<shift>/<spatie>87 

590 x=13:gosub380:rprint str$Ct2ti)shift»/<spatiedb3 

600 x=lsy=4d:fora=0Otol8:y=at4:gosub380O:print af(tl,t2,a):inextéshiftd/{spatied0e 
610 zs=25:y5=75:gotod00Lshiftd/<spatiedd4 

620 gosub 360<shift»/<spatie>d6 

630 ifasclaf)=20andrx=1l then6204shift»/éspatie)0a 

640 ifas=fi$thenpokevt2l,0:goto231l0<shift»/{4spatieded 

650 ifa$=do$thenys=ys+8:t3=t3t1:goto830{shift»/{spatiede? 

660 ifa$=up$thenys=ys=-8:;t3=t3-l:goto8304shiftd/éspatiedf7 

670 ifa$=ri$ or a$=lef then 6204shift»/<spatie)26 

680 ifa$=f4$then t2=t2+1:gosub920:goto6204shift»/<spatie»25 

690 ifaf=f6$then t2=t2-l:gosub920:goto620Sshift»/<spatie»3c 

700 ifa$=f3$then tl=tltl:gosub920:goto6204shift»/{<spatied36 

710 ifa$=fS$then ti=ti=-l:gosub920:goto620Cshiftd/{éspatie>db 

720 ifa$s=f2$then gosub 910:goto62Oshiftd/Cspatiedd4b 

730 ifa$="X"then gosub 1009:goto6204shift>/<spatie>0b 

735 ìfa$=f7$then goto 1O0OXshift»/Xspatie>dfb 

740 ifascla$)=20andxhithenxex-ligs=Ks="8rafCti,t2,t3)=leftsClas(ti,t2,t3),x=1) sh 
ift»>/{spatie>33 

750 ifasclaf)=2Othengosub380:print ® ":goto830lshift»/éspatied6f 

760 ifa$=chr$(13)thenxs=25:ys=yst8:ig=lit3=t3tii:goto830<shift»/Cspatiedlb 
770 ifa$=ho% thenxs=25:ys=76:t3=0ik=liy=4:goto830<shift)/<spatie>b7 

780 ifa$=cl$then 620<shift»/<spatiedeb 

790 ifx>27thengosub2990:goto 620Cshift»/<spatie>dd 

800 y=t3t+4:gosub380:printaf:x=xtigshift»/{<spatie>68 

810 a$(tl,t2,t3)=as(lti,t2,t3)taséshift>/<spatie>54 

820 xs=xst8Cshift»/éspatie»l7 

830 ifxs>255thenxs=255{<shift>/{<spatie>l2 

840 ifrs{25thenxs=25{<shift>/<spatie>66 

850 ifys>220thenys=220X<shift>»/{Xspatied7e 

860 ifys</Sthenys=75<shift»/<spatie>72 

870 ift3)>18thent3=18{shift>/<spatied4a 

880 ift3tOthent3=0&shift»/{spatied5e 

890 ifxélthenx=l<shift>/{spatied54 

900 pokev,xs:pokevtl,ys:goto620<shift>/<spatie>a0 

910 asCtl,t2,t3l="":gotodbshiftd/Cspatiedb3 

920 iftidilthentl=ilgshiftd/{<spatiedbd4 

930 ifti<Othentl=0Xshiftd/{spatie»8c 

940 ift2<Othent2=0{shift>/<spatie>82 

950 ift2>30thent2=30{shiftd/{spatied9a 

960 printcl$:sys49152:x=7:y=ligosub380:print m$CtidSshiftd>/<spatiedch 
970 x=13:gosub380rprint str$(t2+1)3” “Cshift)»>/Cspatied>2d 

980 x=22:y=l:gosub380rprint right$(dt$,4)<shift»/<spatie>16 
x=i:fora=Ôtol8:ysatd:gosub380:print asCti,t2,a):inext:y=t3t+4{<shift»/<spatie 












































gosub 530:x=ligoto 6204shiftd/<spatied3d 
1009 printcl$:sys49152<shift>»/<spatiedc6 
1001 x=l:y=ligosub380:print"voer dag/maand in : (dd/mm) "s<shift>/{spatied>d2 
1002 m=4:gosub 390Xshift>/{<spatiedaf 

1003 t2=valllefts$(t$,2))-i:ti=vallrights$(t$,2))-l:goto 920Cshift)/Cspatied58 
1009 printel$:sys491524shift»>/<spatieddf 

1010 x=l:y=5:gosub380:print “voorbeelden"<shiftd/<spatieda4 

1020 x=l:y=6:gosub380:print "08:30 geld opnemen van de bank"{<shift>/{Xspatiedfb 
1030 zx=l:y=9:gosub380:print "10:45 sollicitatiegesprek"<shiftd/<spatied4b 

1040 x=l:y=l0:gosub380:print "12:30 lunch met vriendin" {<shiftd/{spatied2f 

1050 x=l:y=20:gosub380:print "20:00 bioscoop"<shift»/<spatie»25 

1060 forx=lto500O:inext:goto 960éshift»/éspatiepef 

1070 printel$schr$(30h:t=Or:K=0ry=22:gosub38Osshiftd/<spatied37 
















1080 printrv$"fl"ro$ "menu EVS f3 vos IDDUt vs f5 vos next s<shift»/cep 
atiedbd 

1090 print” Ove f/ cos last Kshift»>/éspatiesbd 

1100 x=0:y=24:gosub380lshiftd/<spatiedc9 

1L1O printrv$s"f2"sross del “arv$s"f4'sross find SYv$fe'ros print” s{<sh 
ee ee 

1120 print” “rv$'"f8"rossort'sups<shiftd/<spatie>)9a 






1130 geosub 1390:gotoll50<shift»/<spatie»5e 
1140 sys 49349&shiftd/Cspatieddd 
1150 gosub360:ifasc(as)<133orasctas)14Othenll50<shift»/<spatie>67 
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1160 ifas=fl$thent=0O:y=22:gosub3804shift»/{<spatieba3 

1170 ifas=fifthenprint” Miups: goto23l0cshift 
>/{spatie>0e 

1180 on asc(a%)-132 gosub1580,1200,1330,1360,1480,1510,1700,1590shift»/{spatie 
»98 

1190 goto 1150<shift»/{spatiedZe 

1200 sys 49349Cshift»/<spatied19 . 

1210 x=5:y=4:gosub380:printrv$s"naam:"s:me22:gosub3JO:inat=ts<shiftd/<spatied29 
1220 x=5:y=5:gosub380:printrv$s “voornaam: "s:m=l8:gosub3J0:vns=ts{shiftd/Sspatie 
>4c 
1230 x=5:y=6:gosub38Orprintrv$s"adres:"s:m=2l:gosub390rads=tsSshiftd/Sspatied1d 
1240 x= Din 


B:y=J:gosub380:printrvs: plaats: =20:gosub390:pls=ts<shiftd/<spati 
e>4l 
1250 x=5:y=8:gosub380: printrvss”"tel:” sim=il:gosub390:tes=t${<shiftd/{spatie» 3d 
1260 2=23:y=8:gosub380:iprintrv$s “modem: "5i:m=3:gosub3IO:imos=tsSshiftd/<spati 
e»0f 


1270 forx=Otol00:ifabs(x)i=""thentt=ex:t=xigotol2904shift»/<spatied31 

1280 nextsprint“out of memory”:stop:gotol070Xshift»/<spatie>7d 

1290 ab#=na$tleft$(sp$, 25-len(na®))tvn$tleft$(sp$,25-len(vn$))tads<shiftd/{s 
patie>dbb 

1300 ab$=ab$tleft$(sp$, 25-len(ad$))+plstlefts(sp$,25-len(pl$)dttestshiftd/és 
patie>b7 

1310 ab$=ab$tleft$s(sp$,25-len(tes))+mofrzabsCtd=absSshiftd/Sspatiedch 

1320 gotol3904shift»/{éspatie)af 

1330 t=ttigshift)»/<spatiesle 

1340 ift>200thent=200<shift>/{<spatie»16 

1350 goto 1390éshift»/<spaltieecl 

1360 t=t-l&shiftd/{spatied7d 

1370 ift<Othent=0Xshiftd/<spatie»72 

1380 goto 1390Xshift»/{spatieje3 

1390 sys 493494shiftd/<spatiedcb 

1400 x=5iy=4:gosub38Osprintrv$s "naam: “smid%Cab#lt),1,25)<shift»/<spatiedfe 


1410 x=5:y=b:gosub380rprintrv$s “voornaam: "smid$Cab$(t),26,21)<shift>/Xspatied30 
1420 x=5:y=6:gosub380rprintrv$s "adres: "smid$Clab$(t),51,24)Sshift>/<spatied7e 
1430 x=5:y=7:gosub380:printrvss “plaats: "smidfCabf(t),76,23) (shift»/éspatie)3d 
1440 x=5:y=8:gosub380:printrvss tel: smidsCab#(t),l01,15)éshift»/Sspatie»76 
1450 x=23:y=8:gosub38Osprintrv$s “modem: "smid$Cabs(t),126,4){<shift»/{spatie»be 
1460 x=9:y=9:gosub38O:rprintrvss "gegeven nummer:"istr$(ttid&shiftd/Sspatiedc4 
1470 return<shift>/{<spatie»35 

1480 x=5:y=9:gosub38Orprintrv$s "bent u zeker ? (j/n) “":zgosub 360Cshift>/{sp 
atie»o2 


1490 ifaf<h"j"thengotol390<shiftd»/&spatied54 

1500 ab$(t)="":gato 1390Xshift>/éspatiedal 

1510 x=5:y=9:;gosub38Orprintrv$js "welk gegeven wenst u ?":forx=itol00û:nextésh 
ift>/{<spatieded4 

1520 x=5:y=9:gosub380rprintrvsj” “<shift»/<spatie>f6 
1530 m=22:x=5:y=9:gosub380:printrv$s:gosub3J0lshiftd/Cspatiedbd 

1540 forx=Otott:ifleft$Clab$(x),len(t$))d=tsthent=r:gotol3904shiftd/<spatie>06 
1550 next{shift»/{spatie»8a 

1560 x=5:y=9:gosub38O:printrvss "gegeven niet aanwezig"<shift>/{spatiedse 
1570 forx=itol00O:inext:gotol3904shift>/<spatie)db 


1580 x=0:y=22:gosub380rprint” “sups{shift 
»/X<spatie>ld4 
1590 x=5:y=9:gosub3BO:rprintrves "dit Kan even duren “<shift>/{spatied5e 


1600 forx=itol00O:next:poke53265,11<shift»/éspatie>b7 

1610 forvstttolstep-iéshift»/<spaltie>8b 

1620 fori=Otoréshiftd/{<spatiedee 

1630 ifab$C(r)ddabsC(ijtheni670Xshift»/<spatiejde 

1640 b$=ab$(r)sshift»/éspatiedce 

1650 ab$(rd=absCijtshiftd/<spatieddd 

1660 ab$C(id=bs{Sshiftd/&spatie>dci 

1670 nextigshift>/<spatied4b 

1680 nextr:poke593265,27<shift»/<spatie>f5 

1690 x=5:y=9:gosub380rprintrv$s "gegevens gesorteerd":forx=0Oto9:nert:gotol3I04 
shift»/<spatie»43 

1700 x=5:y=9:gosub380:print"b"irv$s "rede of "sro$s"s"irv$s"malle letters"{shif 
t»/<spatie>a9 

1710 gosub360:ìfafhb'andafh"s"thenl710éshift»/éspatiedbf 

1720 ifa$="b"thenbs$=chr$C(i4)ltshiftd/<spatied43 

1730 ifa$="s"thenbs#=chr$(i5)<shift»/<spatie»29 

1740 g=5:y=I:gosub38Orprint'a"srvss"lles of een "sro$s"d'srv$s"eel “éshif 
t>/<spatie»d3 

1750 gosub360:ifasth'a’andafh"d"thenl7504shift»/{spatie>d7 
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1760 ifa${d'a'thenl780éshift>/<spatiede2 

1/10 pl=0Orpdeltiaotol820sshifte/<spatie»dd 

1780 x=5:y=9:gosub380:printrvss" "geef het begin nr “:gosub360:pli=vallas)g 
shifto/kepatiesië 

1790 ifpl<landpi>t+lthenli780&shift>/<spatie>89 

<shift>/gspatie,87 

1800 x=5:y=Iigosub38Orprintrvss geef het eind nr “:gosub360:p2=vallas)g 
shift»/éspatie»87 

1810 ifp2<landp2dt+ithen1800<shift»/<spatie»63 

1815 pi=pl=lip2=p2-lgshift»/{spatie)Za 

1820 open4,4:print#t4,bs$&shiftd/<spatie>27 

1830 print#4,spc(2);s"multi-kaart k%% adressenbestand X*X":print#d:iprint#44shift 
>/<spatie>7c 

1840 forr=pitop2Xshiftd/<spatiedfl 

1850 print#4,spcl2)smidsClabs(rd,1,25)Cshiftd/<spatiedb2 

1860 print#4,spcl2)smidsCabslr),26,21)<shift»/Cspatie>fd 

1870 print#4,spel2dsmid$labslr),51,24)<shiftd/<spatied>f2 

1880 print#4,spel2)smid$Clab$(r},76,23)shift>/éspatiede6 

1890 print#4,spcl2)smid$Cabs(r),101,15):print#4:print#4éshift>/Cspatiedeg 

1900 nextr:iprint#4,chr$(15):close4éshiftd/<spatied6d 

1910 forx=lto50O:next:gotol390{shift>/{spatiebba 

1920 printchrs(159)iscl$:sys49598:poke53280,0:poke53281,0Cshift»/<spatie>69 

1930 x=0:y=24:gosub38OSshift>/<spatie>0c 

1940 printrug$stfisross"menu “irv$i°f2'svoss help "“sru$s"f3"sross"find “"sésh 
ift»/<spatied62 

1950 printrv$s"f5"sross"next “srv$s"f7"sro$s"last"upséshiftd/{spatie>35 

1960 goto 20104shift>/{<spatie>25 

1970 sys49598:x=2:y=12:gosub38O:rprintrv$s" kies een telefoonnummer uit het"Cshif 
t>/{spatied4l 

1980 x=2:y=13:gosub380rprintrv$;s “bestand,draai dit,sluit de hoorn aan”{<shift>/< 
spatie»85 

1990 x=2:y=ld:gosub380:printrv$is"en typ uw teksten in.“:forx=ito5000:next{shift 
>/<spatiedab 

2000 sys 49098:weturnéshift»/<spatiescd 

2010 printchr$(30)i;:sys49349:t=0:gosubl40O:rprintehr$(159)s<shift>/<spatie>10 
2020 x=2:y=l2:gosub380<shift>/{<spatie>65 

2039 printrv$icug#s<shift»/<spatie>62 

2040 getb$:ifbs$)""thenprint#2,b$s::goto20704shift>/{spatie>27 

2050 get#2,cH:ifc${h"“thenxextl:goto2180Xshift>/<spatie>13 

2060 goto2040<shift»/{<spatie>8b 

2070 ifb$=fls$then2310<shift>/<spatie>b5 

2080 ifb$=f2$thengosubl970:goto2020<shift>/{<spatie>bi 

2030 ifbs=f3$thenprintehr$(30);:gosubi5lO:printchr$(159)s:goto2020tshift»/&spat 
ied8e 

2100 ifbs=fS$thenprintchr$(30);:gosubl330:printechr$(159)s:goto2020shift>/Xspat 
le,92 

2110 ifbs=f7sthenprintchr$(30);:gosubl360:printchr$(159)s:goto20204shift>/<spat 
iest 

2120 ifasclb$)=1l4Borb$=doforbs=lesorbs=rigorbs=upsthen2040snift>/<spatie>58 
2130 ifb#=cl$thensys 49598:goto2020éshift>/{éspatie>9d 

2140 ifb$=hosthenprintlesirv$s” ":goto2020<shift>/Xspatie>88 

2150 ifasc(b$)=l3thenprintlessrv8s" “:x=2:y=ytiigosub380:goto21904shift>/<spati 
e>23 

2160 ifasc{b$)=20andx>2thenx=x-i:printle$sle$s:goto2030{<shift»/{<spatie>08 

2170 ifasc({b$)=2Othen2040Xshift>/{spatie>4g 

2180 ifx>37/thenprintle$;rv$s” ":x=3:y=ytiigosub380<shift>/Xspatied85 

2190 Ify»2lthensys 49598:goto 2020Cshift»/{spatie»55 

2200 ìfasclb$)}=13then2030<shift»/<spatie>ac 

2210 printles$irvés”® "sle$sb$ictscussix=xtigshift>/<spatie>28 

2220 sr=st:ifsr=Oorsr=8then2040éshift>/{spatie>b8 

2230 sys 49598&shift»/<spatie>19 

2240 x=6:y=l6:gosub380Cshift>/Cspatiedde 

2259 printrv$s"error: “s<shift>/X<spatie>t9 

2260 ifsrand2thenprint"frame"{<shiftd/<spatieda8 

2270 ifsrand4thenprint"“buffer vol"<shift>/<spatie>8c 

2280 ifsrandi28thenprint"verbinding verbroken"{shift>/{spatiedbe 

2290 iflpeek(673landij)then2290Xshift>/{spatiedbi 

2300 close2:print ho${éshift»/{<spatiede6 

2310 printel$schr$(142):poke53280,0:poke53281,04shift>/4spatied76 

2320 poke646,12:x=10;:y=6:gosub380Orprintrv$chrs( 176)" CCCCCCCOCCCECLEC"echrs 174) <5 
hiftd/{spatied6d 

2330 x=10;5y=7:gosub380:printrvs"Bf1 exit B"{shiftd/{spatied46 

2340 x=10:y=8:gosub380:printrvs"B , B"<shift»/{<spatie>00 
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x=10:y=I:gosub380rprintrvs" Bf2 laden B"{shift»/Xspatiedlid 
2360 x=10:y=10:gosub380:iprintrvs "B B"<shift»/{spatie»25 
2370 x=lO:y=li:gosub38O:printrvs"Bf3 agenda B'<shift>/&Xspatie>23 
2380 x=l0:y=l2:gosub380iprintrvs B B"<shift»/<spatiej53 
2390 x=l0:y=13:gosub380:printrvs"Bf4 opslaan _ B'&shift>/éspatied54 
2400 x=1O:y=l4:igosub380:printrvs" B B"<shift>/<spatie>79 
2410 x=l0:y=15:gosub380:printrvs"BfS adressen B"{shift»/{spatie>l8 
2420 x=l0ty=16:gosub380rprintrvs "B B"Xshiftd/éspaties6f 
2430 z=10:y=17:gosub38Orprintrvs" Bf6 terminal B'<shiftd/<spatie>10 
2440 x=10:y=18:gosub380:printrv$chrs(1739"CCCCCCECCCCECEC"chr$ (189) shiftd/ispa 
tie>7b 
2450 geta${shifts/<spatiejsf 
2460 ifas=fl$thenend{<shift>/Xspatiedbd 
2470 ifa$=f3$then520<shift»/<spatie>32 
2480 ifas$=fS$thenlo70<shift»/<spatiej13 
ifa$=fGSthenl9204shiftd/<spatiedl6 
ifa$=f2$then26l04shift»/{Xspatie)>63 
ifa$=f4$then281i0<shift>/<spatie>6l 
goto 2450<shift>/éspatie>5b 
x=5:y=10:gosub380:printehr$(176)"CCCCCCCCLCCECEELLEEC"chrsC174Cshiftd/Lsp 
atie)c9 e 
2540 x 1isgosub380:print”"B B"<shift>/spatiedc4 
2550 x 12:gosub380:print "B B*4shift>/{<spatie>dd 
2560 x 13:gosub380:print!'B B"<shift»/<spatie»29 
X {4:gosub380:print"B B"{shift»/<spatie>24 
2580 x sprint B B"éshift>/{spatie>3b 
2590 x=5i:y=l6:gosub380:print" B B"<shift»/<spatie»32 
2600 x=5:y=16:gosub380rprintehrs(173) "CCCCCCCCCECECCLECELC"ehr$ (189) :return<shi 
ft>/éspatie>b5 
2610 gosub2530:x=6:y=lligosub380rprint van *rv$"d”'ros"isk of *rv$’c'ros'assett 
e"{shift)/{spatiedce 
2620 gosub360:ifas>"d'andastd"ec"then2620{shift»/<spatie>36 
2640 ifas="c"thenprintcel$:topenl,1,0,"multi=data":goto2660<shiftd/<spatie»2c 
2650 open1,8,2,"O:multi-data,s,r"<shift»/<spatieda7 
2660 input#l,tt{4shift>/{spatiedf7 
2610 forc=Otottéshift»/<spatie>80 
2680 input#l,naf:input#i,vn$:input#l,ad$:inputil,pl$:input#l,tes:input#l,mos és 
hift>/cspatie»590 
2690 ab$=naftleft$tsps,25-len(naf))tvn$tlefts$(sp$,25-len(vn$))tads{<shift)/{spa 
tie>3c 
2700 abt=ab$tlefts$(sp$,25-len(ad$))tpl$tlefts(sp$,25-len(pls$))ttes{shift>/{spa 
tie>20 
2710 ab$=abStleft$(sp$,25-len(tes))tmossabs(ch=abstshift»/<spatiedsb 
2120 nexto<shift>/<spatie>6b 
2730 input#l,ti:input#i,t2éshift»/<spatie»99 
2740 forx=tltoli:fory=Qto30:forz=0Otol8shift>/<spatie>ld 
2750 input#l,as(u,yozd:ifaslz,y,zd="k"thenas(x,y,z)=""<shift)/{spatie>2e 
2760 nextinextinext<shiftd/<spatie>40 
2110 closeligoto 23104shift»/<spatie)fa 
2810 t2=vallleft$(dts,2)d=-i:tl=valmids(dts,4,2))=-iéshift)/<spatie>d3 
2820 gosub2530:x=6:y=lisgosub38Oiprint'op 'rv$'d'rostisk of erv$ c'ros'assett 
e"<shift»/<spatiejbf 
2830 gosub360:ifas"d'andasgd"c"then26304shiftd/<spatie»04 
2890 ifaf="c"thenprintel$:openi,1,1,"multi=data":goto2870Xshift»/<spatieds! 
2860 openl,8,2,"@O:multi-data,s,w"<shift»/Xspatied35 
2870 print#l,tt{shift»/{spatie»b8 
2880 forc=Otott{shiftd/{spatiedaf 
2830 nafS=midsCab$lc),1,25):vns=midsClabsle),26,25)shiftd/{spatie»59 
2900 ads=midsCab$lc),51,25):pls=midsCabslc),76,25)<shift»/Sspatie>79 
2910 te&=midsCab$Cecd,101,25):mos=midsCabsle), 126,5) shift>/{<spatie>db 
2920 print#l,na$:print#l,vn$:print#l,ad$:print#l,pl$:print#l,tes:print#l,mos 
hift>/{spatiehd44 
2925 nexto{shift>/{spatieda7 
2930 printtl,tl:print#l,t24shift»/<spatie>40 
2940 forx=titoll:fory=Oto30:forz=Otol8<shifts/éspatie»d4 
2950 ifaslx,y,z)=""thenas(k,y.zd="k"(shiftd/Cspatied8b 
2960 print#l,aflx,y,z)<shift»/<spatied21 
2970 nextinextinext{shifts/{spatiedl3 
2980 closeligoto283104shift>/<spatie>8d 
2990 poke54296,15:poke54277,0:poke54278,0:poke54276,O{shift>/{spatiedaa 
3000 poke54278,240:poke54276,33:poke54273, 100:poke54278,0:poke54296,OXshiftd/< 
spatie»36 
3010 weturn<shiftd»/Xspatied47 


e 
> 
be 
… 
2 
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COMMODORE DOSSIER AKTIEF PROGRAMMA'S __— 


HARMONY sa 


Op het scherm verschijnt. een E rond. de beuuste toon een ac- en septiem. Door Joey Latimer 
piano-toetsenbordje waarmee u __coord op. Zeer geschikt voor en John Jainschige. 

13 tonen (één octaaf) kunt ’aan- muzikale begeleiding. U heeft 

slaan’. De computer oe de keuze tussen mineur 


dima54. bl2,24),ct2, eerie 
pi=chrsti46dtchrstiei): l$= chrs18)tchrsC16i) (shift) /Xspatied0a 
m$=chr$(18)tchr$(I8):ss= ee 
ks=chr$ (18) t" “<shift>/<spatie>bO 
sa=0O:f=-l:5=54272shiftd/<spatie>dlb 
fori=0to24:pokesti,Ornexti:pokes+24, 154shift>/{spatie>5e 
pokes+5,79:pokest6,234:pokest+12,79Cshiftd/<spatiedsl 
pokes+13,234:pokest19,79:pokes+20,234tshifth/<spatiedl4 
readas,qgs{shift»/{spatiejel 
fori=Òto54talid==-linextigshift»/<spatie>6! 
fori=Otol2:readkralk)=isnextigshift>/{spatiedde 
fori=0to24:readbll,id,bCZ,id:tnexticshift»/<spatie>f3 
fori=Oto2:forj=Otol:treadeli,j)snextjsnextigshift)»/{spatiej6h 
poke53281,0:poke53280,04shiftd/<spatiedb7 
printchr$C(i4)stabliijicht$(150)5"*x harmony 64 XX"<shift»/<spatiedd4 
print:print:printchr$(5)<shift»/&spatiedca 
forv=ito9:ifvd6thens$=msé<shift»/{spatie»08 
print” “slS&sk$is&sk&isgskg&smSskssCshift>/Cspatie>37 
prints$sk$ss$sk$is&skssmsskSsrséshiftd>/<spatied4f 
nextvéshiftd/<spatiedlc 
fori=5to33step2Zip=int(i/2)=l€shift>/éspatie»82 
ifmid$Caf,p,lJ="x"then240&<shift»/<spatieje3 
poke214,8-fk4:sprint:iprinttabli)lsmids(a®,p,1){<shift>/&spatiedi0 
f=not f:nextigshift>/<spatiedib 
poke214,18:printéshift>/{4spatie>dc 
printehr$£150)5” lettertoets voor majeurrakkoord, <shiftd/{spatie>6d4 
printtab(8)s"{shiftdt+toets voor mineur,"<shiftd/<spatied0f 
printtab(8)s"{<ctri>ttoets voor septiem."“ichr$(158)£<shift»>/<spatie»c8 
K=peekC(197):ifk<>G4then340<shiftd/<spatie»dc 
ifsa=Othen290<shift»/<spatiedaa 
sa=Q:pokes+4,32:pokesti1l,32:pokest18,32{shift»/{<spatieje3 
poke214,15:print:printtab(15)s” ‚shift »/spatied5c 
goto290<shift»/<spatie,f9 
kek-8:ifkCOorkbS4then290shift»/{spatiebda 
ee 
ct=-(peek(653)=4)-(peek(653dheld<shiftr/<spatie)78 
poke214,15:print!:printtab(l5)}smidsCqs,ctk9r1,9) shift, /<spatieddû 
Dokest4 33:pokesril 33:polkest18, 33cehiftditenatied0ë 
pokes,b(2,alk)d:pokesti,bll,alkddshift»/{<spatied25 
pokes+7,b(2,alk)dtolct,0))<shift>/<spatie»5l 
pokes+8,bll,alkdtelct,0ljCshiftd/C<spatie,57 
pokesti4,bl2,alkdtolect,1))shift)>/<spatie»56 
pokes+15,bll,alk}telet,t))<shift»/{spatiedbe. 
sa=ligoto290{shift»/{spatieda0 
data q2w3exr5t6y/uxis<shift»/éspatie,sd 
data XXmajeurkskkmineurkkkseptiemk{shiftd/&spatied0b 
data 54,51,1,0,6,9,8,14,1t,17,16,22,254shift»/éspatie»00 
data 8,97,8,225,9,104,9,247,10,143,11,48,11,2184shift»/<spatie»sf 
data 12,143,18,18,14,24,14,239,15,210,16,195Cahift>/Ksparle,0l 
data 17/,195,18,209,19,239,21,31,22,96,23,191éshifts/Sspatiesla 
data 25,30,26,156,28,49,29,223,31,165,33,1354shift»/<spatiedld 
data 4,7,3,7,7,1O<shift>/é<spatie»05 


DOSSIER COMMODORE AKTIEF 


is een uitgave van VNU Business VORMGEVING LEZERS-SERVICE MARKETING PRODUKTIE 
Publications. BV Rijnsburgstraat 11, Daan Ricke Vragen over depubieeerde program Sander Beek Smeets Offset (NBI), ‘s-Hertogenbosch 
1059 AT Amsterdam. SEceramMAT EN ne Samen alieen schriftelijk worden Ô re 
eantwoor AOVERTENT Copvríaht 1985 b 
PROJECT-REDACTEUR BEELDVERWERVING Johan IJsebrands vig y 
Mat Heffels Gaan anse wnnEs Fa nk Jans A Bias: Publications BV, Amsterdarn, 
, À Aldipress BV, De Mem, on Gogelens Wb Slsnes Press 
Keener edes AND NUMWERWERCENMEE el Ds 2 oM anvenTeniesecneramaar _ pyndication BV, „msterdam, 
van a de romme Mi Beos ke Antwerpen, Rob van den Berg Uitgeversmaatschappij Diligentia, Brussel. 
John Jainschigg Niets uit deze uitgave mai 
PGM Joey. Latimer UITGEVER worden over enofren of 3 
Chiel Kramer (hoofdred.) Roelf Slaman vermenigvuldigd zonder de 
Hans Becker Henk Snoeks Ruud Bakker. ziene Schrfielijke toestemming van 
Dirk H, Rìngenoldus Luc Volders de uitgever. 
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Abonnees van Commodore Dossier Aktief kunnen in deze ru- 
briek kosteloos een advertentie plaatsen. De service is uit- 
sluitend bedoeld voor particulieren. Puur commerciële adver- 
tenties en aanbiedingen van illegale programmatuur worden 


geweigerd. De redactie is niet verantwoordelijk voor fouten 


als gevolg van Oek: op 


hoogste / regels van 2 


IK BIED HARDWARE AAN 


® Siemens Inktjet-printer PT 88. werkt 
gefuisloos, niet gebruikt, f 1775. tel 
085-6353314. 


® CBM-64 + cass. + joyst.+ 6 boeken 
+ Simon's Basic + KCS tape speedsaver 
combi + 400 spelletjes op cass, 1 jaar 
oud 193D0FR of f 1070. Bart Vlaminckx, 
België tel (na 17 u) 703/3832568. 


® Uit fin. nood helaas t‚k. C64 (6 mnd), 
recorder, div. software, stofhoes, hand- 
boeken (w.o. Tim Onosko): f 750 tel (na 
18.00 uur) 020 866152, 


® CBM-64 + {rafo + cass. merk phona- 
mark, evt. te ruilen tegen disk 1541, 

f 540. Tevens te ruil ca. 1200 pragr. (op 
disk) J.J. Martens, Vaarkamperengweg 
36, 6741 XW Lunteren. 


® Te kp.: CBM-B4 + cass. + Philips TP 
200 monitor + 1541 disk drive + 1520 
printer/plotter + div. handleidingen 

f 1750 R. Kooyman, tel 01804-14530. 


® Commodore Tape Queen snellaadmadu- 
le f 50, tevens gevr. 1541 diskdrive. tel 
{alleen in het weekend) 04132-64900 


® TRS-80 color computer 64 K uitv + 
printer + software + lektuur (1/2 jr. 
oud). Alles in een koop: f 700,: event. + 
datarec. (f 856,-). Tel. 05613-1990. 


® Dubb. diskdr. 4040 met IEEE488 inter- 
face drive. lets defect. Prijs: f 500, Tel. 
0850-256006. 


@ Nwe Eprom v.d. 80241526 U printer. 
Werkt 3X sneller. Werkt met printershop 
+ papercips. Eprom voor f 65, Tel. 
(tussen 19 en 22 uur) 070-4680895. 


@® Wegens aanschaf CBM-64 video-pac 
67000 + 9 spelen (oa pac-man). 1 jr. 
oud. Prijs: f 250, Tel. (na 14 uur) 
013-6385628. 


© Radar-Basic 50K. Prijs: f_75,-. Music 
construction set. Prijs: f 70, Geheuge- 
nuitbr. (32K schakelbaar) voor VIC-20. 
Prijs: f 100, R. vd Heeft, Bijland 818, 
5403VM Uden. Tel: 04132-62881. 


@ MPS-803 printer met Tractor Feeding 
v. doorvoer kettingform. 3 mnd. oud + 

nog lop. garantie. Prijs: f 400. W. vd 

Pall te Putten. Tel: 03418-54520. 


@® Printer MPS 803 (1/2 jr. oud). Prijs: 
f 300,-. H. Boonstra, Seringenstr. 49, 
2681EK Monster. 


® Printer Seikosha GP100VC + papier. 
1 jr. oud. Prijs: f 250,-. KCS Disk Speed- 
Loaper + handl. Prijs; f 55, Printer 
event, aak te ruilen tegen monogrome 
monitor z/w.amber. Tel: 02230-36951. 


@ CBM-64 + Philips monitor + Brother 
printer HRS + datasette 1530 + Simons 
basic + hoeken + tijdschr. In een kaap 
f 950,-. Á. Meijer, Oostereind 111, 1212 
VH Hilversum. Tel: (fot 17 uur) 
035-8897480. 








® C-64 + software (excl. dataselte). 
Prijs: f 500,-. Tel: 01720-34589. 





ave. Een advertentie mag ten 
aanslagen lang zijn. 





© Seikosha printer GP100. Direct aan te 
sluiten op de Commodore. B.Kip, Postbus 
63, 9530AB Borger. Tel: (na 17 uur) 
05998-12834. 


© Zg.a.n. C-B4 met ned. handi. en hoes 
vaar f 500,-. Wil Rikmanspoel te Zeist. 
Tel.: (lussen 15 en 17 uur) 
03404-52551. 


@ CBM-54 + datasette + prg. C-54 
heeft ingeb. viditelaanst., snellader v_ca- 
sette ingeb. Prijs: f 500, R. Schnabel. 
Tel: (lussen 18 en 23 uur) 020-253644. 


® Vic-2D + KB + ned. hand. + spe- 
jen + boeken + datarec Event. te rui- 
len v. MPS 803 of floppy-disk. Prijs: 
n.o.tk. Tel. (na 18 uur) 079-515335, 


@ Philips P2000T Computer + 4 bandjes 
+ Basie probeerboek. Prijs: te.a.b. Tel. 
03407-2225. 7 


® Plus/4 + 1541 drive. Makkelijk v. kl. 
zelfstandige door ingeb. software. Incl. 
handi. v. computer en software. Prijs: 

f 550,-. Tel: 01608-21849. 


® Zero 80 kal.krt v.d. CBM-64. Prijs: 
f 110, Niek Remkes. Tel. 
020-251686-274905. 


@ CBM-64 + 1541 drive + cdss.rec. + 
logo + Pascal 4 Simens + Pilot + boe- 
ken + cartridge. Alles în een prijs voor: 
f 1900,-. W. Stigter, Suppestr. 8, 
5151KR Drunen. Tel: 04163-73898. 


@ IEEE488 interf, + handi. (1x gebr.). 
Prijs: f 150,- of te ruilen tegen een z/w 
camera +4 adept. Stack lightpen + softw. 
te handi. Prijs: f 15,-. Event. te ruilen te- 
gen Koala pad e.d. J.Raats. Tel.: 
045-310404. 


© Casio FX-3000P + interf. + 32K 
perm, RAMmodule + perm Matrixmodule. 
Printer Epsan MX-82 in zeer goede staat. 
J. Czerwice te Meeuwen (Belgie). Tel. na 
18 uur) 0114-462434. 


® Interface CBM-64 + AVT 80X printer. 
Prijs: f 35,-. Softwarematig (incl.tape) 
Prijs: f 20, H. Sanders, WJ Tuynstr, 
38, 11312 Volendam. 


® Atari 800XL + veel softw. 
Tel.078-158171. 


® Vic-20 motherboard compl. met 
module-(cartridges) uitbr. Prijs: f 125,-. 
Tevens modem dataphon S 21D + softw. 
v. C-64. Prijs: f 250,-. Tel: 050-131537, 


® Voor Vic: Hes writer (tekstverw.), 
Forth, Romcassettes, Spellen (Mole At- 
tack, Gorf, Pipes). R.Houtkamp. Tel. 
020-7134926. 


©® Hard- en software o.a. snelladers en 
pim.2000 progr. (Finad, Vizawrite, Super- 


base Lightpen, Auto-dail, enz). Tel. 


03200-48716. 
® Lightpen v. CBM-64 met toebeh. Te- 
vens handl. v. Simons basic. Prijzen: 

n.o.t.k. Tel. 023-2896116. 


©@ Commodore 64, printer Panasonic KX- 





prog, floppy 1541, Cassetterecorder, me- 
falen kast en monitor. Alles in een koop. 
Prijs: 2600, Tel. 02209-2267. 


® Vic-20 + OKI printer + div. uitbr. + 
21K RAM, Prijs; f 500,-. P. Creemers, 
Faisantenstr. 41, 1211PT Hilversum. Tel. 
035-10114. 


@ Weka Combi: Turbotool, Prijs: f 500,-. 
The Final cardridge HP. Prijs: f 75,-. 
Tevens softw. gevr. H. Gerritsen, St 
Jansgildestr. 14, 7037DM Beek (Gld). 


@ C-16 met datasette, software en ned. 
handi. Prijs: f 275,-. Tel. 05146-35793. 


@ Commodore Vic-20 + 8K geheuge- 
nuitbr. + ROM pack + joystick + 6 boe- 
ken + veel softw. Prijs: f 300,-. W‚M. 
Hartman, T Brandsmastr 31, 3762JJ 
Soest. Tel. 02155-11201. 


® Vic-20 + super exp. cartr. + geheu- 
genuitbr. + spel (cosmic eruncher) + 3 
haeken. Liefst in een koop. Prijs: n.o.t.k. 
Tel. 0930-897463. 


@ KCS diskspeedloader 64 met ingeb. 
machinetaalmon. Prijs: f 125,-. Event. te 
ruilen met softw. op disk of printer, Te- 
vens giimes (o.a. Exploding Fist) te ruilen. 
Tel. 05430-20958. 


® Matix printer MPS 801. 1 1/2 jr. oud. 
Prijs: f 425,-. Eric van Slooten. Tel. (na 
17 uur) 03410-22370. 


@ Philips comp. (97400) + 22 spelen 
16K Ram/ 16K Rom + cass. rec. + 3 
boeken + 2 joyst. V. Greve te Yerseke. 
Tel. 01131-32958. 


© CBN-64 + cass.rec. + softw. + Si- 
mans basic + handl. G. Lauwerier, Kou- 
terbaan 164, B-9470 Denderleeuw (Bel- 
gie). Tel. 053-668532. 


© CBNl-printer Model 4023 (IEEE-488) 
alsmede interpod interface. P.Janssen. 
Tel. 04990-71849. 


® Brother HR-5 printer + adapter. Prijs: 
f 500,-. Remko Meijer. Tel. 
02208-94286. 


® Spectrum-48 + 400 prog. + data- 
cass.rec. + 3 orig. progr. Prijs: f 400, 
Tel. 070-639484, 


®@ Prof. off. comp. supervisor Philips 
compl. harddisc. monitor, toetsenbord. 
Event. meerdere term aan te sluiten + 
ned. gebr. aanw. Prijs: n.o.t.k. Tel. 
02153-14589. 


IK BIED SOFTWARE AAN 


@® Commodore Lago C-64 105 engelstalig 
boek met 2 discettes. Prijs: n.o.t.k. D. 
Macquoy, Merelstr. 24, B-3295 Schaffen 
(Belgie). 


®@ Simons Basic + handì. + Ghost- 
busters — spel. Prijs: f 75,-. 6. Huisint- 
veld te Bergen op Zoom. Tel. (na 18 uur) 
01640-37435. 4 


@ Zakelijke prog. voor Commodore ook 

voor C128 (80 kolom). Ik schrijf ook vol- 
gens uw behoefte. Tevens gevr. 3K RAM 
uitbreiding voor VIC 20.inl. Henri Schuer- 
wegen, Lierbaan 202, 2870 Putte, België. 


® Org. Ghostbusters met beschr. Prijs: 

f 25, Tevens lijst gevr.van progr. om te 
tuilen. Wie heeft het werkende C.D. vidi- 
telprogr.? J.Raats, Postbus 30121, 
63902J Landgraaf. Tel. 045-3110404. 


® Instaspeed basic-comp. org, versie, 
Prijs: f 150,-.Datamanager 2 orig. uitv. 
Prijs: f 180,-Superclone.De orig. Clone 
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_ Sturen naar: CD-MARKT 


machine in super uitv. Prijs: f 80. R- 
Mulier, Zoom 1723, 8225KL Lelystad. 
Tel. 03200-31097. 


© Vic-20 spelmodule, starbattie. Prijs 

f 15, + boek, Verslavende spelen voor 
Vic-20. Prijs: f 10,- + boek. Basic-progr. 
Prijs: f 7,50 + C-64 spellen. Prijs: f 1, 
F. de Lange te Wormerveer. Tel. 5 
075-288213. 


@® 250 titels softw. (adm. en spel) te rui- 
len voor CBM-64. Uw lijst voor de mijne. 
J. van Damme, Azalealaan 70-C, B-2690 
Temse (Belgie). Tel. 03-7711179. 


© Pim. 100 spelen op cassette v.d. 
£-64. Schrijf voor lijst naar Hr. Pauw, 
Kooikersdreef 517, 7328BP Apeldoorn. 


@ C-64 cartridges musiccomposer en too- 
thinvaders. Stevie Roelfsema te Haren 
(Gn). Tel. (tussen 17 en 18 uur) 
050-345062. 


@ CBM-64 spellen (tape). Vraag lijst. A. 
Mulder, Spongerf 7, 6413LS Heerlen. Tel. 
045-225449. 


® Voor CBM-64 Simon's basic oefenboek 
van D.Becker + sound en graphics, Mel- 
baurne House. Prijs: f 35,- + f 15, Da- 
ve Kerkhove, Tel. (alleen vrijdags tussen 
18 en 19 uur) 01184-62513. 


© Laonprogr. voor elke branche tevens 
netto-bruto en bruto-netto voor CBM-64. - 
P.Kleijnen, de Beaufortstr. 46, 6231EB 
Meerssen. Tel. 043-6420941. 


@ C-64 softw. Keuze uit 1300 pragr. te 
koop of te ruilen met diskdr. Tel. 
070-3934504. 


® C-64 Sreendump voor MPS-802 + 
handl. op disk. Maakt afdr. van BV dias- 
how, Simons-basic, strippoker ed. Softw. 
altijd welkom. Luc Van Esch te Zonhoven 
(Belgie). Tel. 011-816363. 


@ Printshop een drukkerij voor thuis voor 
de CBM-64 op disk, Geschikt voor alle 
printers. Prijs : f 100,-. Tel. 
01892-14365. 


IK ZOEK HARDWARE 


® Ik zoek een matrix-hardware voor 
Commodore 64. J.T. Bijlsma, tel. 
05997-1475. 


@ Vic voice voor Vic-20. W. van Eeke- 
len, Postbus 1892, 4801BW Breda. Tel. 
076-8729659. S 


© Monitor met geluid. Stuur prijs en 
spec. naar W.A. Groot, Populierenlaan 7, 
1602SW Enkhuizen. 


® Schema's en softw. voor CBM-64 — 
Experimenten met soundsampling/dig. De- 
jay, etc. Harm Verbeek, Noordsingel 104, 
3032BH Rotterdam. Tel. 010-654429. 


@ Commodore 803 printer. Event. DG 
801 voor DG CBM-64. F. Engels, Spoor- 
laan 57, Nootdorp. Tel. 01731-7073. 


© Hard/software + inform. v. omzetten 
morseseinen in schrift. H.Schulten, Ta- 
lingstr. 11, 74912P Delden. 







Uw advertentie-opdrachten 


t.a.v. Carla de Haan 
redactiesecretariaat 
Rijnsburgstraat 11 

1059 AT Amsterdam 













_ COMMODORE DOSSIER AKTI 


Dit is het laatste Aktief van de eerste jaargang Commodore Dossier of het eerste nummer van de tweede jaargang, net hoe u 
het bekijkt. In elk geval voor ons een mooie gelegenheid om u als abonnee te vragen wat u van Commodore Dossier vond het 
afgelopen en jaar en, belangrijker nog misschien, wat u het volgend jaar van ons verwacht. 

Hoe meer ingevulde formulieren we krijgen, hoe beter we weten wat onze lezers van ons verwachten. | 

Een postzegel hoeft het in elk geval niet te kosten, want u kunt het ingevulde formulier — of een fotocopie als u dit blad niet 


wilt beschadigen — opsturen naar: 
Commodore Dossier — Antwoordnummer 16037 — 1000 SE Amsterdam 


Ik ben abonnee slndss n 














Ik heb een: LT] C64 LJ Vic20 LJ Plus4 (J C16 [] C128 () ander, namelijk 





























SAAS 
























































Met: printer LJ plotter LJ diskdrive LJ tv Ll monitor L joystick LJ modem J en bovendien 



























































Ik wil binnenkort aanschaffen: LJ printer TJ plotter 0] diskdrive CJ monitor L) joystick 


























ander, namelijk 


Ik gebruik mijn computer voornamelijk voor: 
spelletjes [Ll tekstverwerken (] huishoudelijke administratie TJ zelf programmeren 





















































Ik overweeg binnenkort een andere computer aan te schaffen en wel 






































Mijn programma’s: Ì copiëer ik LT] maak ik zelf 














Ik ben abonnee geworden van Commodore Dossier omdat 
Het blad is wel/niet wat ik ervan verwachtte. 


Het slechtste artikel van het afgelopen jaar vond ik 


Fet beste artikel a 
Als het aan mij ligt, komen er in Commodore Dossier: : 
meer: L] algemeen informatieve artikelen minder: algemeen informatieve artikelen 














software-beschrijvingen 
hardware/randapparatuur-vergelijkingen 
listings 

CL] ’zelf doen’-onderwerpen 

tips & trucs 

‘zelf programmeren’-artikelen 
wedstrijden 

columns 

leesverhalen 



























































Als het aan mij ligt, komen er in Commodore Dossier Aktief: 
meer: nieuws minder: nieuws 

C) listings listings 

LC] tips&trucs tips&trucs 






















































































E) 














software-beschrijvingen 
hardware/randapparatuur-vergelijkingen 
listings 


L] ’zelf doen’-onderwerpen 


tips & trucs 


CL] ‘zelf programmeren’-artikelen 


wedstrijden 
columns 
leesverhalen 


Hoe waardeert u de neven-activiteiten van Commodore Dossier (cijfer 1-10) 












































LJ Commodore Dossier in Viditel LJ Listing CJ hulpdienst Tl programma’s op cassette/schijf L] technische hulpverlening 





























Nog nooit werd in een boek zo diep 
ingegaan op alle facetten en 
mogelijkheden van de C64! 



































































TWEE UNIEKE OPBOUWWERKEN 
VOOR COMMODORE BEZITTERS 





STEEDS UP TO DATE 


Stap voor stap leert u te werken met 


®@ Basic ® Hulptalen ® Geluid 
® Graphics & Sprites 

® Accessoires 

@® Machinetaal. 


Blijf niet meer steken in een eenvoudig 
spelletje! 

Door de logische opbouw van de uitgave 
ende professionele voorbeelden komt utot 
een volledig gebruik van uw computer en 
de accessoires. 

Wegwijs worden in programmeertalen. 
Aan de hand van voorbeelden met prak- 
tisch te gebruiken subroutines leert u opti- 
maal gebruik te maken van uw C 64. Niet al- 
leen in BASIC maar ook in PASCAL, LOGO, 
PILOT Simons's Basic, ADA en minder be- 
kende talen. 

De grafische mogelijkheden en het ge- 
luid vormen twee sterke kanten van de 
C64. Een C64 heeft 4 toongenerators 
waardoor de geluidskwaliteit van de ma- 
chine bij velen al beroemd is. En uiteraard 


In deze unieke uitgave wordt in begrijpelijk 
Nederlands een breed scala van de popu- 
laire maar moeilijke spellen voor de CG. 64 
uitgelegd. Aan de van duidelijke beschrij- 
vingen en afbeeldingen (schermfoto’s) 
worden de spellen systematisch bespro- 
ken. Door middel van trucs (praktische 
handigheden), speeltips en plattegronden 
dringt u door tot de essentie van het spel. 


De volgende categorieën van spellen 
worden besproken: 


— Simulatiespellen 
—Avontuurspellen 
—-Denkspellen 

—-Beweeg- en schietspellen. 


Daarnaast wordt veel aandacht besteed 
aan de accessoires, die bij het spelen van 
spellen onmisbaar zijn. 














zullen de meest bekende melodieën hier in 
de toekomst niet ontbreken. 

Wat betreft de grafische mogelijkheden 
komen vooral het juiste gebruik van de 
sprites aan bod. 

Nuttige adressen, produktinformatie, tips 
voor het gebruik van apparatuur en pro- 
grammeren vormen de afsluiting van een 
werk dat beginner en gevorderde C 64-ge- 
bruiker van begin tot eind zal boeien. 
GRATIS UNIEKE HULPMIDDELEN 
Reeds in het basiswerk zijn enkele unieke 
hulpmiddelen opgenomen: 

® „cheatsheets”, bijvoorbeeld program- 
meer-commando's samengevat bij en op 
het toetsenbord. ® Computertekensja- 
bloon, waarmee flowcharts, grafische soft- 
ware en sprites, ontwikkeld kunnen wor- 
den. ® Papier voor grafisch ontwerpen. 
EN OP KORTE TERMIJN: 

Software op floppy en/of cassette en spe- 
ciale aanbiedingen. 






Welke spellen kunt u zo al verwachten? 
Een kleine greep: 


—ULTIMA III 

— Ghostbusters 
—Natocommander 
—Cluedo 

— Summergames 1+2 
— Sky Fox 

—Bruce Lee 


En op het creatieve vlak, o.a.: 


— Music Construction Set 
—Koala touchpad 
— Sketchpad. 


In het basiswerk zullen ca. 70 spellen op- 
genomen worden, in de aanvulling telkens 


ca. 20. 
ADV. 009 


BESTELBON 










Zend mij tot wederopzegging het aange- 
kruiste naslagwerk, waarbij ik mij tevens tot 
wederopzegging abonneer op uw aktualise- 
rings-service. Na ontvangst betaal ik f99,— 
exkl. porto. 

De aktualiseringen kosten elk 49,95. 











J 


Naam: 
Adres: 
PC/Plaats: 
Handtekening: 1659 


Het is als bij de krant: vandaag nog aktueel, morgen „oud 
nieuws”. Op nauwelijks enig ander terrein gaat de ontwikkeling 
zo snel als in de computer-technologie. Regelmatig worden 
nieuwe en betere programma’s ontwikkeld. Reden voor ons om 
deze boeken te voorzien van een aktualiseringsservice. 


Tot wederopzegging ontvangt u circa 4 maal per jaar een aan- 
vulling van ca. 120 pagina’s op uw naslagwerk, welke u eenvou- 
dig kunt invoegen in het basiswerk. U blijft dus beschikken over 
een boek dat NOOIT VEROUDERT. 





































[Van Basic tot machinetaal op C64 


[Het zwaardere werk op C64 








Bon zenden aan WEKA UITGEVERIJ BV, 
Antwoordnummer 15412, 1000 PZ Amsterdam. Ook leverbaar 
via de erkende boekhandel en de computer- en elektronica-winkels. 






WEKA UITGEVERIJ BV. 


Postbus 61196 - 1005 HD AMSTERDAM - 020-86 7131 
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WEES BLIJ DAT HET EEN SPELLETJE IS! 


vernieuwende superkwaliteit van RadarSoft* 


ZENUWSLOPENDE 
SPANNING, HYPER-STRESS 
EN PURE LOGICA! 

EEN LUGUBER STUK 
SOFTWARE DAT ZELFS DE 
HAREN VAN DE ZWAARST 
BEPROEFDE AVONTURIER 
OVEREIND ZAL KRIJGEN, 
De Sekte * neemt U mee naar de 
verlatenheid van de Schotse 
Hooglanden en plaatst U voor een 
bouwvallige kerk Een geheim dossier 
verhaalt over de mysterieuze 
verdwijning van de sekteleider en zijn 
met geringe prive-vermogen’ Deze 
verdwijning 1s volgens hel dossier 1e 


aanwezigheid drukt als een vloek op de 
naaste omgeving, de bevolking Is ‚n 
dolle paniek geviucht en de kerk is 
totaal! en U heeft het sterke 
vermoeden dat hel verdwenen sekte 
fortun zich ergens in die kerk bevindt 
U bent niet bang uitgevallen? 

Of toch eigenlijk wel 


EEN NEDERLANDSTALIGE 
GRAFISCHE 
ELEKTRONISCHE ROMAN met 

tientallen tekeningen in kleur 

volledige zinsinvoer' (voorzetsels, 

hdwoorden, understatements, } 

3 stemmige muziek 

save mogelijkhed 

100% machinetaal (62 K) 


“door John Vanderaart, auteur van oa 


Eindeloos, Steen ger Wijzen, Horror 
Hotel, Zone 7 en Eindeloos 


VNC NEE deelen slENEL 


100 m? spel - 5OO schermen 


een technisch hoogstandje van RadarSoft* 


Een absolute topper. 

Een echt Arcade-avontuur 
dat alleen door de aller- 
besten en de allerslimsten 
tot een goed einde kan 
worden gebracht. 


Tijdens een ruimte-expeditie op een van de 
manen van Neptunus is het kosmische 
superwezen in zijn winterslaap gestoord, waarna 
het zich. zwaar gepikeerd, terugtrok in de grotten 
van het v.m. toeristisch paradijs EINDELOOS op 
aarde. Dit met alle gevolgen voor onze 
samenleving van dien, 

Daal af met een met raketten geladen wentel 
wiek en vecht, vlieg en zoek u een weg door de 
meer dan 500 schermen zinderende aktie. 

Zoek en verjaag het kloppend hart van het 
superwezen 


RadarSoît zal de volnarders rijkelijk belonen 
Uw wederverkoper weet er alles van! 


- 500 schermen smooth scrollend 
gevaar 
- 100% machinetaal… 62K 


* door John Vanderaart de auteur van oa 
Steen der Wijzen. Horror Hotel en Zone 7 


ENC TieectelloTPEIGLeEIEN 


RadarSoft voor uw CBM64 zijn: © 
BAT: fol Ula KO) efen fo loer) 
5 ) - Topografie Europa/Wereld/div. landen ‘Andere kwaliteitsprbgramma's|van RadatSoft 
NS RS Í „ Tempo typen “Rekenwonder voor uw: CBM64 zijd: Topografie Nederland): 
-Letterstress - Radarbasic 50K Europa/Wereld - Tenpotypen an 


Ale elle tee Ne MA eeh AE eenn 
eee 


BASF Fle 


BADEN otk oel Tae CHAAAR 
- Tijdreiziger - Anonimus - Horror Hotel 


- Steen der Wijzen | Tijdreizigef - Anonimus 


NEZ WEA ele RABe Wel EIN eer leeielennact TEC en Lel GIN PE el 











BASF FlexyDisk 5,25”, 
9,25”HD, 8” 


Volledige bedrijfszekerheid nu bij 


twee keer zo lange levensduur: 
gemiddeld 35 miljoen lees- 
schrijfkoppassages per spoor. 


BASF FlexyDisk Science 
5,25”, 5,25”HD 

De top-diskette voor gebruik in 
wetenschap en techniek. 


Temperatuurbestendig tot +70°C. 


Volledige oppervlaktecontrole. 
Gemiddelde levensduur van 70 
miljoen lees-/schrijfkoppassages 
per spoor. 
















































































@BASF 


RIO MUDISIK 





BASF 


PleyyDiskk 


Scianes 


/ 


maman BEOE III Ús nnn HEEBBEBNN INN 


JOO% certified ik lOO% certified, 








\ 








Disk 


BASF FlexyDisk 
3,5” 

De diskette met extreem 
hoge registratiecapaciteit 
voor de nieuwe micro 
disk drive generatie. 
Leverbaar in 1D en 2D 
uitvoering. 


BASF Nederland BV. 
Divisie Datatechniek 
Postbus 1019 

6801 MC Arnhem 
Tel. 085-717302 


SI 
‚BASF 





Bedrijfszeker door top-technologie 
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© eee je in staat iS PROGRAM 
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